a from scale-rotated-ellipse

Time bar (total: 22.3s)

start0.0ms (0%)

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

analyze1.4s (6.5%)

Memory
7.2MiB live, 2 824.4MiB allocated; 213ms 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
3.5%3.5%96.2%0.2%0%0%0%11
4.1%4.1%95.7%0.2%0%0%0%12
Compiler

Compiled 185 to 54 computations (70.8% saved)

sample5.1s (22.7%)

Memory
16.4MiB live, 5 869.7MiB allocated; 2.2s collecting garbage
Samples
4.2s8 256×0valid
Precisions
Click to see histograms. Total time spent on operations: 3.7s
ival-pow2: 1.6s (42% of total)
ival-mult!: 762.0ms (20.5% of total)
ival-div!: 348.0ms (9.3% of total)
ival-add!: 300.0ms (8.1% of total)
ival-cosu: 273.0ms (7.3% of total)
ival-sinu: 249.0ms (6.7% of total)
ival-sqrt: 106.0ms (2.8% of total)
ival-neg: 82.0ms (2.2% of total)
ival-sub!: 37.0ms (1% of total)
adjust: 2.0ms (0.1% of total)
Bogosity

explain2.1s (9.4%)

Memory
11.1MiB live, 2 336.8MiB allocated; 384ms collecting garbage
FPErrors
Click to see full error table
Ground TruthOverpredictionsExampleUnderpredictionsExampleSubexpression
1710-2(7.5967820484251e-196 1.6542820666621293e+77 -2.0400218014558206e-235 4.9613248457925256e-26 -1.0748703649360009e+69)(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
1160-0-(sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))
1160-0-(cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))
630-3(6.58899304902662e-26 -3.346089365084374e-31 1.020302776886099e-95 2.9339016051876374e+23 -2.373469621982715e-180)(/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))
410-0-(*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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))))))
380-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))))
360-2(2.0793658754385517e-199 -3.530417868866791e-78 6.700400080340187e-139 7.658325688249438e-133 1.1564795359756302e-204)(sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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)))))))
310-0-(/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)
290-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))
270-0-(/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)
270-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))))
260-1(1.5738423037225042e-193 -6.159568245015416e-92 3.513175394164752e-136 1.185689726265115e-152 1.702558787697961e+42)(/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)
250-2(-3.4618818754423215e-127 2.313123180891061e-41 -5.768827700797142e-115 -5.974179116707034e+117 5.863948649626373e-240)(/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)
200-0-(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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)))
190-1(-5.632781394034344e-184 2.1098616519106078e-221 -8.239660487337059e-5 -6.294918012506758e+304 -2.8613127584070244e-53)(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)
190-0-(*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))
00-0-x-scale
00-0-(*.f64 b a)
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 (+.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)) (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)))))
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-(*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))
00-0-(*.f64 x-scale y-scale)
00-0-(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))
00-0-(*.f64 b (neg.f64 a))
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 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.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-(neg.f64 a)
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 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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))
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-a
00-0-(*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
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-(neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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))))))))
00-0-(pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))
00-0-(PI.f64)
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-(/.f64 angle #s(literal 180 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-#s(literal 4 binary64)
00-0-y-scale
01(-4.505947057125974e-9 2.4711077831031338e-154 -2.4679091335032554e-202 -6.7727980951909e+52 -3.1382175192592798e-242)0-(*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))
Explanations
Click to see full explanations table
OperatorSubexpressionExplanationCount
sin.f64(sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))sensitivity1160
cos.f64(cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))sensitivity1160
/.f64(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))o/o770
↳(+.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)) (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)))))overflow146
↳(pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow52
↳(*.f64 b a)overflow72
↳(*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))overflow70
↳(-.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))overflow146
↳(*.f64 b (neg.f64 a))overflow72
↳(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)overflow168
↳(*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))overflow104
↳(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)overflow182
↳(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))overflow172
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)overflow174
↳(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))overflow97
↳(/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)overflow70
↳(+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))overflow170
↳(+.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))overflow146
↳(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))overflow97
↳(pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow104
↳(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))overflow73
↳(pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow130
↳(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))))overflow146
↳(/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)overflow75
↳(neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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))))))))overflow113
↳(*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))overflow70
↳(sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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)))))))overflow113
↳(pow.f64 b #s(literal 2 binary64))overflow65
↳(*.f64 x-scale y-scale)overflow32
↳(pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow82
↳(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))overflow126
↳(+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))overflow164
↳(*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))overflow134
↳(*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))overflow67
↳(*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))overflow83
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)overflow160
↳(pow.f64 a #s(literal 2 binary64))overflow52
↳(/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))overflow83
↳(+.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)))overflow172
↳(*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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))))))overflow130
↳(*.f64 b a)overflow36
↳(*.f64 b (neg.f64 a))overflow36
↳(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))overflow73
↳(*.f64 x-scale y-scale)overflow32
↳(*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))overflow67
↳(*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))overflow67
↳(/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))overflow83
/.f64(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))u/u610
↳(+.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)) (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)))))underflow18
↳(*.f64 b a)underflow82
↳(*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))underflow38
↳(-.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))underflow18
↳(*.f64 b (neg.f64 a))underflow82
↳(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)underflow100
↳(*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))underflow106
↳(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)underflow92
↳(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))underflow30
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)underflow76
↳(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))underflow23
↳(/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)underflow42
↳(+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))underflow72
↳(+.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))underflow18
↳(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))underflow23
↳(pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))underflow136
↳(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))underflow75
↳(*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))underflow76
↳(pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))underflow124
↳(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))))underflow18
↳(/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)underflow45
↳(neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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))))))))underflow62
↳(*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))underflow38
↳(sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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)))))))underflow62
↳(pow.f64 b #s(literal 2 binary64))underflow62
↳(*.f64 x-scale y-scale)underflow32
↳(pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))underflow202
↳(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))underflow68
↳(+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))underflow64
↳(*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))underflow150
↳(*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))underflow74
↳(*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))underflow85
↳(pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))underflow208
↳(*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))underflow74
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)underflow76
↳(pow.f64 a #s(literal 2 binary64))underflow68
↳(/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))underflow85
↳(+.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)))underflow30
↳(sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))underflow10
↳(*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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))))))underflow79
↳(*.f64 b a)underflow41
↳(*.f64 b (neg.f64 a))underflow41
↳(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))underflow75
↳(*.f64 x-scale y-scale)underflow32
↳(*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))underflow75
↳(*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))underflow74
↳(/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))underflow85
-.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-rescue290
↳(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)overflow84
↳(pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow65
↳(+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))overflow82
↳(pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow26
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)overflow80
↳(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)overflow91
↳(pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow52
↳(pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow41
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-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)))overflow85
*.f64(*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.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*o270
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-rescue260
↳(*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))overflow70
↳(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)overflow91
↳(*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))overflow70
↳(pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow26
↳(+.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)))overflow172
↳(-.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))overflow146
↳(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)overflow84
↳(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))overflow172
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)overflow87
↳(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))overflow97
↳(/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)overflow70
↳(+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))overflow85
↳(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))overflow97
↳(pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow52
↳(pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow65
↳(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))))overflow146
↳(/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)overflow75
↳(pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow41
↳(pow.f64 b #s(literal 2 binary64))overflow65
↳(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))overflow126
↳(+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))overflow82
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)overflow80
↳(pow.f64 a #s(literal 2 binary64))overflow52
/.f64(/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))u/u230
↳(*.f64 b a)underflow41
↳(*.f64 b (neg.f64 a))underflow41
↳(*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))underflow75
↳(*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))underflow74
↳(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))underflow75
↳(*.f64 x-scale y-scale)underflow32
*.f64(*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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))))))u*o230
↳(*.f64 b a)underflow82
↳(*.f64 b (neg.f64 a))underflow82
↳(*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))underflow106
↳(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))underflow75
↳(*.f64 x-scale y-scale)underflow32
↳(*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))underflow150
↳(/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))underflow85
↳(*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))underflow74
↳(*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))underflow85
↳(*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))overflow70
↳(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)overflow182
↳(*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))overflow70
↳(+.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)) (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)))))overflow146
↳(pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow52
↳(+.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)))overflow172
↳(-.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))overflow146
↳(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)overflow168
↳(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))overflow172
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)overflow174
↳(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))overflow97
↳(/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)overflow70
↳(+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))overflow170
↳(+.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))overflow146
↳(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))overflow97
↳(pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow104
↳(pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow130
↳(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))))overflow146
↳(/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)overflow75
↳(pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow82
↳(pow.f64 b #s(literal 2 binary64))overflow65
↳(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))overflow126
↳(+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))overflow164
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)overflow160
↳(pow.f64 a #s(literal 2 binary64))overflow52
/.f64(/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))o/o210
↳(*.f64 b a)overflow36
↳(*.f64 b (neg.f64 a))overflow36
↳(*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))overflow67
↳(*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))overflow67
↳(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))overflow73
↳(*.f64 x-scale y-scale)overflow32
/.f64(/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(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/n200
↳(pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow65
↳(+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))overflow82
↳(pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow26
/.f64(/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(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/n200
↳(+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))overflow85
↳(pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow52
↳(pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow41
-.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))overflow65
↳(pow.f64 a #s(literal 2 binary64))overflow52
/.f64(/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (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/n180
↳(*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))overflow70
↳(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))overflow97
↳(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))overflow97
↳(*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))overflow70
↳(pow.f64 b #s(literal 2 binary64))overflow65
↳(pow.f64 a #s(literal 2 binary64))overflow52
sqrt.f64(sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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-rescue170
↳(+.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)) (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)))))underflow18
↳(*.f64 b a)underflow82
↳(*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))underflow38
↳(-.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))underflow18
↳(*.f64 b (neg.f64 a))underflow82
↳(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)underflow100
↳(*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))underflow106
↳(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)underflow92
↳(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))underflow30
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)underflow76
↳(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))underflow23
↳(/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)underflow42
↳(+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))underflow72
↳(+.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))underflow18
↳(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))underflow23
↳(pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))underflow136
↳(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))underflow75
↳(*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))underflow76
↳(pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))underflow124
↳(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))))underflow18
↳(/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)underflow45
↳(*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))underflow38
↳(sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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)))))))underflow62
↳(pow.f64 b #s(literal 2 binary64))underflow62
↳(*.f64 x-scale y-scale)underflow32
↳(pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))underflow202
↳(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))underflow68
↳(+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))underflow64
↳(*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))underflow150
↳(*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))underflow74
↳(*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))underflow85
↳(pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))underflow208
↳(*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))underflow74
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)underflow76
↳(pow.f64 a #s(literal 2 binary64))underflow68
↳(/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))underflow85
↳(+.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)))underflow30
↳(sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))underflow10
↳(*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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))))))underflow79
sqrt.f64(sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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-rescue170
↳(+.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)) (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)))))overflow146
↳(pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow52
↳(*.f64 b a)overflow72
↳(*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))overflow70
↳(-.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))overflow146
↳(*.f64 b (neg.f64 a))overflow72
↳(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)overflow168
↳(*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))overflow104
↳(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)overflow182
↳(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))overflow172
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)overflow174
↳(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))overflow97
↳(/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)overflow70
↳(+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))overflow170
↳(+.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))overflow146
↳(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))overflow97
↳(pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow104
↳(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))overflow73
↳(pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow130
↳(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))))overflow146
↳(/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)overflow75
↳(*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))overflow70
↳(sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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)))))))overflow113
↳(pow.f64 b #s(literal 2 binary64))overflow65
↳(*.f64 x-scale y-scale)overflow32
↳(pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow82
↳(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))overflow126
↳(+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))overflow164
↳(*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))overflow134
↳(*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))overflow67
↳(*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))overflow83
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)overflow160
↳(pow.f64 a #s(literal 2 binary64))overflow52
↳(/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))overflow83
↳(+.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)))overflow172
↳(*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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))))))overflow130
/.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/n160
↳(*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))overflow70
↳(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))overflow97
↳(*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))overflow70
↳(pow.f64 b #s(literal 2 binary64))overflow65
↳(pow.f64 a #s(literal 2 binary64))overflow52
↳(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))overflow97
↳(/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)overflow70
/.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/n160
↳(pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow65
↳(+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))overflow82
↳(pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow26
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)overflow80
/.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/n140
↳(pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow52
↳(pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow41
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-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)))overflow85
/.f64(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))n/u130
↳(*.f64 b a)underflow41
↳(*.f64 b (neg.f64 a))underflow41
↳(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))underflow75
↳(*.f64 x-scale y-scale)underflow32
↳(*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))underflow75
↳(*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))underflow74
↳(/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))underflow85
/.f64(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))o/n120
↳(+.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)) (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)))))overflow146
↳(pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow52
↳(*.f64 b a)overflow72
↳(*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))overflow70
↳(-.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))overflow146
↳(*.f64 b (neg.f64 a))overflow72
↳(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)overflow168
↳(*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))overflow104
↳(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)overflow182
↳(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))overflow172
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)overflow174
↳(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))overflow97
↳(/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)overflow70
↳(+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))overflow170
↳(+.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))overflow146
↳(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))overflow97
↳(pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow104
↳(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))overflow73
↳(pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow130
↳(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))))overflow146
↳(/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)overflow75
↳(neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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))))))))overflow113
↳(*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))overflow70
↳(sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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)))))))overflow113
↳(pow.f64 b #s(literal 2 binary64))overflow65
↳(*.f64 x-scale y-scale)overflow32
↳(pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow82
↳(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))overflow126
↳(+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))overflow164
↳(*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))overflow134
↳(*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))overflow67
↳(*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))overflow83
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)overflow160
↳(pow.f64 a #s(literal 2 binary64))overflow52
↳(/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))overflow83
↳(+.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)))overflow172
↳(*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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))))))overflow130
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-rescue120
↳(*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))underflow38
↳(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)underflow46
↳(*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))underflow38
↳(-.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))underflow18
↳(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)underflow50
↳(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))underflow30
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)underflow38
↳(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))underflow23
↳(/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)underflow42
↳(+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))underflow36
↳(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))underflow23
↳(pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))underflow68
↳(*.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))underflow62
↳(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))))underflow18
↳(/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)underflow45
↳(pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))underflow101
↳(pow.f64 b #s(literal 2 binary64))underflow62
↳(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))underflow68
↳(+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))underflow32
↳(pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))underflow104
↳(*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))underflow37
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)underflow38
↳(pow.f64 a #s(literal 2 binary64))underflow68
↳(+.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)))underflow30
↳(sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))underflow6
*.f64(*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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))))))n*u100
/.f64(/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(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/n90
↳(+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))underflow36
↳(pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))underflow68
↳(pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))underflow101
↳(*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))underflow37
↳(sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))underflow2
*.f64(*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))n*o90
*.f64(*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))n*u80
*.f64(*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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))))))n*o80
/.f64(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))n/o60
↳(*.f64 b a)overflow36
↳(*.f64 b (neg.f64 a))overflow36
↳(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))overflow73
↳(*.f64 x-scale y-scale)overflow32
↳(*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))overflow67
↳(*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))overflow67
↳(/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))overflow83
/.f64(/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(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))))underflow38
↳(pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))underflow62
↳(+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))underflow32
↳(pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))underflow104
↳(sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))underflow2
/.f64(/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))n/o50
↳(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))overflow73
↳(*.f64 x-scale y-scale)overflow32
/.f64(/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))n/u50
↳(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))underflow75
↳(*.f64 x-scale y-scale)underflow32
/.f64(/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))u/n40
↳(*.f64 b a)underflow41
↳(*.f64 b (neg.f64 a))underflow41
↳(*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))underflow75
↳(*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))underflow74
/.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/n30
↳(pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))underflow68
↳(pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))underflow101
↳(*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))underflow37
↳(sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))underflow2
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)underflow38
↳(+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))underflow36
/.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/n30
↳(*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))underflow38
↳(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))underflow23
↳(*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))underflow38
↳(pow.f64 b #s(literal 2 binary64))underflow62
↳(pow.f64 a #s(literal 2 binary64))underflow68
↳(sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))underflow2
↳(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))underflow23
↳(/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)underflow42
/.f64(/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))o/n20
↳(*.f64 b a)overflow36
↳(*.f64 b (neg.f64 a))overflow36
↳(*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))overflow67
↳(*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))overflow67
/.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/n20
↳(*.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))underflow62
↳(+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))underflow32
↳(pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))underflow104
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)underflow38
↳(sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))underflow2
*.f64(*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))n*u10
*.f64(*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))o*u10
↳(*.f64 b a)overflow36
↳(*.f64 b (neg.f64 a))overflow36
↳(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))overflow73
↳(*.f64 x-scale y-scale)overflow32
↳(*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))overflow67
↳(/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))overflow83
↳(*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))overflow67
↳(*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))overflow83
↳(*.f64 b a)underflow41
↳(*.f64 b (neg.f64 a))underflow41
↳(*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))underflow75
*.f64(*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))u*o10
↳(*.f64 b a)underflow41
↳(*.f64 b (neg.f64 a))underflow41
↳(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))underflow75
↳(*.f64 x-scale y-scale)underflow32
↳(*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))underflow75
↳(/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))underflow85
↳(*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))underflow74
↳(*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))underflow85
↳(*.f64 b a)overflow36
↳(*.f64 b (neg.f64 a))overflow36
↳(*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))overflow67
Confusion
Predicted +Predicted -
+2521
-30
Precision
0.9882352941176471
Recall
0.9960474308300395
Confusion?
Predicted +Predicted MaybePredicted -
+25201
-300
Precision?
0.9882352941176471
Recall?
0.9960474308300395
Freqs
test
numberfreq
01
146
243
359
462
534
68
72
81
Total Confusion?
Predicted +Predicted MaybePredicted -
+100
-000
Precision?
1.0
Recall?
1.0
Samples
233.0ms512×0valid
Compiler

Compiled 3 413 to 172 computations (95% saved)

Precisions
Click to see histograms. Total time spent on operations: 183.0ms
ival-mult!: 64.0ms (34.9% of total)
ival-pow2: 47.0ms (25.7% of total)
ival-div!: 25.0ms (13.6% of total)
ival-cosu: 13.0ms (7.1% of total)
ival-sinu: 13.0ms (7.1% of total)
ival-sqrt: 10.0ms (5.5% of total)
ival-add!: 5.0ms (2.7% of total)
ival-neg: 5.0ms (2.7% of total)
ival-sub!: 2.0ms (1.1% of total)
adjust: 0.0ms (0% of total)

preprocess53.0ms (0.2%)

Memory
-37.7MiB live, 57.9MiB allocated; 10ms collecting garbage
Iterations

Useful iterations: 1 (0.0ms)

IterNodesCost
05563888
116543764
Stop Event
1×node-limit
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶1.8%
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
Symmetry

(abs a)

(abs b)

(abs x-scale)

(abs y-scale)

Compiler

Compiled 366 to 112 computations (69.4% saved)

series751.0ms (3.4%)

Memory
21.7MiB live, 1 057.3MiB allocated; 83ms collecting garbage
Counts
56 → 560
Calls
Call 1
Inputs
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
(neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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))))))))
(sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))
(*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
#s(literal 2 binary64)
(/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))
(*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))
#s(literal 4 binary64)
(*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))
(*.f64 b a)
b
a
(*.f64 b (neg.f64 a))
(neg.f64 a)
(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))
(*.f64 x-scale y-scale)
x-scale
y-scale
(+.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)) (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 (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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))))
(sin.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
#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))))
(cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(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))))
(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))))
(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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (* (pow a 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (* (pow a 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (pow a 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (* (pow a 2) (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (pow a 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* (pow b 4) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow b 4) (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 4) (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow a 2) (+ (* 4 (* (/ (* (pow a 2) (* (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 (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 x-scale 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)))))) (* 8 (/ (* (pow b 4) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 4) (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow a 2) (+ (* 8 (/ (* (pow b 4) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow a 2) (+ (* -2 (* (/ (* (pow a 2) (* (pow b 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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 x-scale 2) (pow y-scale 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))))) (* 4 (* (/ (* (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 (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 x-scale 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 (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) #s(hole binary64 (* 8 (/ (* (pow a 4) (pow b 4)) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -8 (/ (* (pow a 2) (pow b 2)) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* -4 (/ (* (pow a 2) (pow b 2)) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* 4 (* (* b a) (* b (neg a)))) #s(hole binary64 (* -4 (* (pow a 2) (pow b 2)))))
#s(approx (* (* b a) (* b (neg a))) #s(hole binary64 (* -1 (* (pow a 2) (pow b 2)))))
#s(approx (* b a) #s(hole binary64 (* a b)))
#s(approx a #s(hole binary64 a))
#s(approx (* b (neg a)) #s(hole binary64 (* -1 (* a b))))
#s(approx (neg a) #s(hole binary64 (* -1 a)))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (pow (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (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 (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (/ (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 (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))))))))) (+ (/ (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 (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 b 2) (pow (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 (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 (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) #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 (/ (/ (+ (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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 4)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 6)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 4)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 3) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 6) (* (pow b 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 6) (+ (* 8 (/ (* (pow b 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow b 4) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow a 2) (* (pow x-scale 2) (pow y-scale 2)))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 6) (+ (* 4 (* (/ (* (pow b 4) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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) (* (pow x-scale 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)))))) (+ (* 8 (/ (* (pow b 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow b 4) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow a 2) (* (pow x-scale 2) (pow y-scale 2))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 6) (+ (* -2 (* (/ (* (pow b 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) (* (pow x-scale 2) (pow y-scale 2)))) (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))))) (+ (* 4 (* (/ (* (pow b 4) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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) (* (pow x-scale 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)))))) (+ (* 8 (/ (* (pow b 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow b 4) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow a 2) (* (pow x-scale 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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))) (+ (/ (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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)))))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 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)) (/ (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) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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)))))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 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)) (/ (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) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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)))))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 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)) (/ (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) (/ (/ (+ (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 (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) (/ (/ (+ (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 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 (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 (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 (/ (/ (+ (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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 4)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 6)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 4)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow a 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow a 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow a 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 3) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow a 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow a 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow a 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 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) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))) (sqrt (/ 1 (+ (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 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) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (sqrt (/ 1 (+ (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 (cos (* 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) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))) (sqrt (/ 1 (+ (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (* (pow b 2) (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 4) (* (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 (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow b 2) (+ (* 4 (* (/ (* (pow a 4) (* (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))))))) (* (pow x-scale 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)))))) (* 8 (/ (* (pow a 4) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow b 2) (+ (* 8 (/ (* (pow a 4) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow b 2) (+ (* -2 (* (/ (* (pow a 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)))))))) (* (pow x-scale 2) (pow y-scale 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))))) (* 4 (* (/ (* (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 (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 x-scale 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 b #s(hole binary64 b))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (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 (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (/ (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 (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))))))))) (+ (/ (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 (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (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 (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 (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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 4)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 6)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 4)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 3) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 6) (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 6) (+ (* 8 (/ (* (pow a 4) (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (+ (* 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 (cos (* 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 x-scale 2) (pow y-scale 2)))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 6) (+ (* 4 (* (/ (* (pow a 4) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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) (* (pow x-scale 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)))))) (+ (* 8 (/ (* (pow a 4) (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (+ (* 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 (cos (* 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 x-scale 2) (pow y-scale 2))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 6) (+ (* -2 (* (/ (* (pow a 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) (* (pow x-scale 2) (pow y-scale 2)))) (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))))) (+ (* 4 (* (/ (* (pow a 4) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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) (* (pow x-scale 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)))))) (+ (* 8 (/ (* (pow a 4) (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (+ (* 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 (cos (* 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 x-scale 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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))) (+ (/ (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 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)) (/ (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 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)) (/ (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 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)) (/ (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 (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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 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)) (/ (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) #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 (/ (/ (+ (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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 4)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 6)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 4)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow b 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow b 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow b 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 3) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow b 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow b 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow b 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))))))) (* b (sqrt 2)))) (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* b (sqrt 2)))) (* 1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* b (sqrt 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* 1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* 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/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (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 b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))))) (* 1/2 (/ (* (pow x-scale 2) (* (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* b (sqrt 2)))) (* 1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 angle 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))))))) (* y-scale (sqrt 2)))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* (pow angle 2) (* b (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* y-scale (sqrt 2)))) (* 1/2 (/ (* (pow a 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* y-scale (sqrt 2)))))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (* (pow angle 2) (- (* -1/2 (/ (* (pow a 2) (* (pow angle 2) (* b (* (sqrt 8) (- (+ (* 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/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (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 b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))))) (* 1/2 (/ (* (pow x-scale 2) (* (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* y-scale (sqrt 2)))) (* 1/2 (/ (* (pow a 2) (* b (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* y-scale (sqrt 2)))))) (* 1/2 (/ (* (pow a 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* y-scale (sqrt 2)))))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 angle 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))))))) (* y-scale (sqrt 2)))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* y-scale (sqrt 2)))) (* 1/2 (/ (* (pow a 2) (* (pow angle 2) (* b (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* y-scale (sqrt 2)))))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* y-scale (sqrt 2)))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow a 2) (* b (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* y-scale (sqrt 2)))) (* 1/2 (/ (* (pow a 2) (* (pow angle 2) (* b (* (sqrt 8) (- (+ (* 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/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (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 b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))))) (* 1/2 (/ (* (pow x-scale 2) (* (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* y-scale (sqrt 2)))))))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))) #s(hole binary64 (* 16 (/ (* (pow a 4) (pow b 6)) (* (pow x-scale 4) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow angle 2) (* (pow b 4) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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 x-scale 2) (pow y-scale 2)))) (* 16 (/ (* (pow a 4) (pow b 6)) (* (pow x-scale 4) (pow y-scale 2)))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))) #s(hole binary64 (+ (* 16 (/ (* (pow a 4) (pow b 6)) (* (pow x-scale 4) (pow y-scale 2)))) (* (pow angle 2) (+ (* 8 (/ (* (pow a 4) (* (pow angle 2) (* (pow b 4) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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 x-scale 2) (pow y-scale 2)))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))) #s(hole binary64 (+ (* 16 (/ (* (pow a 4) (pow b 6)) (* (pow x-scale 4) (pow y-scale 2)))) (* (pow angle 2) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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 x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* 8 (/ (* (pow a 4) (* (pow angle 2) (* (pow b 4) (+ (* 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/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (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 b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))))))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))) (* (pow x-scale 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 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) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (pow x-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 x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (pow x-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 x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 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 angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (pow x-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 x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 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 angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 angle 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/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (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 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 b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (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 (+ (/ (pow a 2) (pow y-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) (/ (/ (+ (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 x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))))) (+ (/ (pow a 2) (pow y-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) (/ (/ (+ (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 x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (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) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))))))) (+ (/ (pow a 2) (pow y-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) (/ (/ (+ (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 x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 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 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/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 b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))))))) (+ (/ (pow a 2) (pow y-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 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 (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 (* (/ 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 (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 (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 (/ (/ (+ (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 (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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (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 (cos (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (pow x-scale 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (+ (/ (* (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)) (+ (/ (* (pow b 2) (pow (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 (cos (* 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)) (/ (* (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) #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 (sin (* (/ angle 180) (PI))) #s(hole binary64 (sin (* 1/180 (* angle (PI))))))
#s(approx (cos (* (/ angle 180) (PI))) #s(hole binary64 (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) #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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/8 (* (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* 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 a 2) (pow (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 (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 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) (+ (* 1/8 (* (* y-scale (* (sqrt 8) (+ (* 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 a 2) (pow (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 (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 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) (+ (* 1/8 (* (* y-scale (* (sqrt 8) (+ (* 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 a 2) (pow (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 (/ 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) (+ (* 1/8 (* (* y-scale (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (* -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 (cos (* 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 (/ (* (+ (* 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 a 2) (pow (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 (cos (* 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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 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)))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* (pow x-scale 2) y-scale)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (pow x-scale 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (- (* -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 (cos (* 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 (/ (* (+ (* 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 a 2) (pow (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 (cos (* 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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 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))))))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* (pow x-scale 2) y-scale)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (pow x-scale 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) y-scale) (sqrt (+ (* 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) y-scale) (sqrt (/ 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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) y-scale) (sqrt (+ (* 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) y-scale) (sqrt (/ 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (- (* -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 (cos (* 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 (/ (* (+ (* 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 a 2) (pow (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 (cos (* 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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 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))))))))))) y-scale) (sqrt (/ 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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 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 4) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (* (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 a 2) (pow (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 y-scale 2))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)))) (pow x-scale 4))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2))) (* (pow x-scale 2) (+ (* 4 (/ (* (pow a 4) (* (pow b 4) (* (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 y-scale 2) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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 a 2) (pow (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 y-scale 2)))))) (pow x-scale 4))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2))) (* (pow x-scale 2) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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 a 2) (pow (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 y-scale 2))) (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow b 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 y-scale 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 3)))) (* 4 (/ (* (pow a 4) (* (pow b 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) (* 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 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 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 x-scale #s(hole binary64 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (* 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (+ (* 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 a 2) (pow (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))))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (+ (* 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 a 2) (pow (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))))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (+ (* 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 a 2) (pow (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))))
#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 (/ (+ (* (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)))))) (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 (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 4)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 6)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 4)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) x-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) x-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 6) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) x-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) x-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) x-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 6) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) x-scale)))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 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) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (pow y-scale 2)))) (pow x-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 4) (- (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 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))))))) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (pow y-scale 2))))) (pow x-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 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 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))) 3))))) (+ (* 4 (/ (* (pow a 4) (* (pow b 4) (- (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 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))))))) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (pow y-scale 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 y-scale 2))) (* 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 4)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 6)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 4)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) x-scale))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) x-scale))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 6) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) x-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) x-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) x-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 6) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) x-scale))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/8 (* (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* 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))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow y-scale 2) (+ (* 1/8 (* (* x-scale (* (sqrt 8) (+ (* 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)))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow y-scale 2) (+ (* 1/8 (* (* x-scale (* (sqrt 8) (+ (* 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)))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* 1/8 (* (* x-scale (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (* -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 (/ (* (+ (* 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)))) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale (pow y-scale 2))) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (pow y-scale 2) (* (sqrt 8) (+ (* 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)))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow y-scale 2))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow y-scale 2))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (- (* -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 (/ (* (+ (* 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)))) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow y-scale 2))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale (pow y-scale 2))) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (pow y-scale 2) (* (sqrt 8) (+ (* 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)))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow y-scale 2))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow y-scale 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 2))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow y-scale 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (- (* -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 (/ (* (+ (* 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)))) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))) (pow y-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (pow y-scale 4))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (* (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 a 2) (pow (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 x-scale 2))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow x-scale 2)))) (pow y-scale 4))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow x-scale 2))) (* (pow y-scale 2) (+ (* 4 (/ (* (pow a 4) (* (pow b 4) (* (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 x-scale 2) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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)))))) (pow x-scale 2)))))) (pow y-scale 4))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow x-scale 2))) (* (pow y-scale 2) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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)))))) (pow x-scale 2))) (* (pow y-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow b 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 x-scale 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 3)))) (* 4 (/ (* (pow a 4) (* (pow b 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) (* 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 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 4))))
#s(approx y-scale #s(hole binary64 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (* 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (+ (* 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 a 2) (pow (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))))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (+ (* 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 a 2) (pow (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))))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (+ (* 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 a 2) (pow (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))))
#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 (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 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)))))) (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 (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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))))))))) (pow y-scale 4)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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))))))))) (pow y-scale 6)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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))))))))) (pow y-scale 4)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))) y-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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)))))))) y-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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)))))))))) (* x-scale (pow y-scale 6))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))))) y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))) y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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)))))))) y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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)))))))))) (* x-scale (pow y-scale 6))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))))) y-scale)))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 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)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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)))))) (pow x-scale 2)))) (pow y-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 4) (- (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 x-scale 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))))))) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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)))))) (pow x-scale 2))))) (pow y-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 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 x-scale 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))))) (+ (* 4 (/ (* (pow a 4) (* (pow b 4) (- (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 x-scale 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))))))) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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)))))) (pow x-scale 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 x-scale 2))) (* 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (* 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))) (+ (/ (* (pow a 2) (pow (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (* 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))) (+ (/ (* (pow a 2) (pow (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (* 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))) (+ (/ (* (pow a 2) (pow (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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))))))))) (pow y-scale 4)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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))))))))) (pow y-scale 6)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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))))))))) (pow y-scale 4)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))) y-scale))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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)))))))) y-scale))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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)))))))))) (* x-scale (pow y-scale 6))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))))) y-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))) y-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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)))))))) y-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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)))))))))) (* x-scale (pow y-scale 6))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))))) y-scale))))
Calls

15 calls:

TimeVariablePointExpression
67.0ms
angle
@0
((/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))))) (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))) (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2)) (* 4 (* (* b a) (* b (neg a)))) 4 (* (* b a) (* b (neg a))) (* b a) b a (* b (neg a)) (neg a) (pow (* x-scale y-scale) 2) (* x-scale y-scale) x-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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (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)))) (sin (* (/ angle 180) (PI))) (* (/ angle 180) (PI)) (/ angle 180) angle 180 (PI) (pow (* b (cos (* (/ angle 180) (PI)))) 2) (* b (cos (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI))) (/ (/ (+ (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)))) (pow (* b (sin (* (/ angle 180) (PI)))) 2) (* b (sin (* (/ 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))) (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))
61.0ms
b
@0
((/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))))) (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))) (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2)) (* 4 (* (* b a) (* b (neg a)))) 4 (* (* b a) (* b (neg a))) (* b a) b a (* b (neg a)) (neg a) (pow (* x-scale y-scale) 2) (* x-scale y-scale) x-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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (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)))) (sin (* (/ angle 180) (PI))) (* (/ angle 180) (PI)) (/ angle 180) angle 180 (PI) (pow (* b (cos (* (/ angle 180) (PI)))) 2) (* b (cos (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI))) (/ (/ (+ (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)))) (pow (* b (sin (* (/ angle 180) (PI)))) 2) (* b (sin (* (/ 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))) (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))
60.0ms
a
@0
((/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))))) (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))) (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2)) (* 4 (* (* b a) (* b (neg a)))) 4 (* (* b a) (* b (neg a))) (* b a) b a (* b (neg a)) (neg a) (pow (* x-scale y-scale) 2) (* x-scale y-scale) x-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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (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)))) (sin (* (/ angle 180) (PI))) (* (/ angle 180) (PI)) (/ angle 180) angle 180 (PI) (pow (* b (cos (* (/ angle 180) (PI)))) 2) (* b (cos (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI))) (/ (/ (+ (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)))) (pow (* b (sin (* (/ angle 180) (PI)))) 2) (* b (sin (* (/ 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))) (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))
56.0ms
y-scale
@inf
((/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))))) (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))) (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2)) (* 4 (* (* b a) (* b (neg a)))) 4 (* (* b a) (* b (neg a))) (* b a) b a (* b (neg a)) (neg a) (pow (* x-scale y-scale) 2) (* x-scale y-scale) x-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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (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)))) (sin (* (/ angle 180) (PI))) (* (/ angle 180) (PI)) (/ angle 180) angle 180 (PI) (pow (* b (cos (* (/ angle 180) (PI)))) 2) (* b (cos (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI))) (/ (/ (+ (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)))) (pow (* b (sin (* (/ angle 180) (PI)))) 2) (* b (sin (* (/ 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))) (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))
49.0ms
a
@inf
((/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))))) (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))) (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2)) (* 4 (* (* b a) (* b (neg a)))) 4 (* (* b a) (* b (neg a))) (* b a) b a (* b (neg a)) (neg a) (pow (* x-scale y-scale) 2) (* x-scale y-scale) x-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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (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)))) (sin (* (/ angle 180) (PI))) (* (/ angle 180) (PI)) (/ angle 180) angle 180 (PI) (pow (* b (cos (* (/ angle 180) (PI)))) 2) (* b (cos (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI))) (/ (/ (+ (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)))) (pow (* b (sin (* (/ angle 180) (PI)))) 2) (* b (sin (* (/ 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))) (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))

rewrite759.0ms (3.4%)

Memory
33.8MiB live, 1 075.6MiB allocated; 111ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
03431246968
03535226848
010474222021
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
616 → 668
Calls
Call 1
Inputs
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
(neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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))))))))
(sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))
(*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
#s(literal 2 binary64)
(/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))
(*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))
#s(literal 4 binary64)
(*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))
(*.f64 b a)
b
a
(*.f64 b (neg.f64 a))
(neg.f64 a)
(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))
(*.f64 x-scale y-scale)
x-scale
y-scale
(+.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)) (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 (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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))))
(sin.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
#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))))
(cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(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))))
(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))))
(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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (* (pow a 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (* (pow a 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (pow a 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (* (pow a 2) (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (pow a 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* (pow b 4) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow b 4) (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 4) (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow a 2) (+ (* 4 (* (/ (* (pow a 2) (* (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 (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 x-scale 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)))))) (* 8 (/ (* (pow b 4) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 4) (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow a 2) (+ (* 8 (/ (* (pow b 4) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow a 2) (+ (* -2 (* (/ (* (pow a 2) (* (pow b 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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 x-scale 2) (pow y-scale 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))))) (* 4 (* (/ (* (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 (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 x-scale 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 (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) #s(hole binary64 (* 8 (/ (* (pow a 4) (pow b 4)) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -8 (/ (* (pow a 2) (pow b 2)) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* -4 (/ (* (pow a 2) (pow b 2)) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* 4 (* (* b a) (* b (neg a)))) #s(hole binary64 (* -4 (* (pow a 2) (pow b 2)))))
#s(approx (* (* b a) (* b (neg a))) #s(hole binary64 (* -1 (* (pow a 2) (pow b 2)))))
#s(approx (* b a) #s(hole binary64 (* a b)))
#s(approx a #s(hole binary64 a))
#s(approx (* b (neg a)) #s(hole binary64 (* -1 (* a b))))
#s(approx (neg a) #s(hole binary64 (* -1 a)))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (pow (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (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 (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (/ (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 (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))))))))) (+ (/ (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 (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 b 2) (pow (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 (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 (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) #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 (/ (/ (+ (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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 4)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 6)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 4)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 3) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 6) (* (pow b 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 6) (+ (* 8 (/ (* (pow b 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow b 4) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow a 2) (* (pow x-scale 2) (pow y-scale 2)))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 6) (+ (* 4 (* (/ (* (pow b 4) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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) (* (pow x-scale 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)))))) (+ (* 8 (/ (* (pow b 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow b 4) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow a 2) (* (pow x-scale 2) (pow y-scale 2))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 6) (+ (* -2 (* (/ (* (pow b 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) (* (pow x-scale 2) (pow y-scale 2)))) (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))))) (+ (* 4 (* (/ (* (pow b 4) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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) (* (pow x-scale 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)))))) (+ (* 8 (/ (* (pow b 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow b 4) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow a 2) (* (pow x-scale 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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))) (+ (/ (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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)))))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 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)) (/ (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) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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)))))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 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)) (/ (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) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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)))))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 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)) (/ (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) (/ (/ (+ (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 (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) (/ (/ (+ (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 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 (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 (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 (/ (/ (+ (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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 4)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 6)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 4)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow a 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow a 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow a 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 3) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow a 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow a 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow a 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 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) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))) (sqrt (/ 1 (+ (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 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) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (sqrt (/ 1 (+ (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 (cos (* 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) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))) (sqrt (/ 1 (+ (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (* (pow b 2) (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 4) (* (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 (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow b 2) (+ (* 4 (* (/ (* (pow a 4) (* (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))))))) (* (pow x-scale 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)))))) (* 8 (/ (* (pow a 4) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow b 2) (+ (* 8 (/ (* (pow a 4) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow b 2) (+ (* -2 (* (/ (* (pow a 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)))))))) (* (pow x-scale 2) (pow y-scale 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))))) (* 4 (* (/ (* (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 (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 x-scale 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 b #s(hole binary64 b))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (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 (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (/ (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 (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))))))))) (+ (/ (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 (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (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 (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 (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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 4)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 6)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 4)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 3) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 6) (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 6) (+ (* 8 (/ (* (pow a 4) (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (+ (* 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 (cos (* 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 x-scale 2) (pow y-scale 2)))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 6) (+ (* 4 (* (/ (* (pow a 4) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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) (* (pow x-scale 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)))))) (+ (* 8 (/ (* (pow a 4) (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (+ (* 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 (cos (* 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 x-scale 2) (pow y-scale 2))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 6) (+ (* -2 (* (/ (* (pow a 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) (* (pow x-scale 2) (pow y-scale 2)))) (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))))) (+ (* 4 (* (/ (* (pow a 4) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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) (* (pow x-scale 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)))))) (+ (* 8 (/ (* (pow a 4) (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (+ (* 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 (cos (* 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 x-scale 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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))) (+ (/ (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 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)) (/ (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 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)) (/ (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 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)) (/ (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 (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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 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)) (/ (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) #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 (/ (/ (+ (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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 4)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 6)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 4)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow b 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow b 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow b 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 3) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow b 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow b 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow b 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))))))) (* b (sqrt 2)))) (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* b (sqrt 2)))) (* 1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* b (sqrt 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* 1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* 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/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (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 b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))))) (* 1/2 (/ (* (pow x-scale 2) (* (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* b (sqrt 2)))) (* 1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 angle 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))))))) (* y-scale (sqrt 2)))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* (pow angle 2) (* b (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* y-scale (sqrt 2)))) (* 1/2 (/ (* (pow a 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* y-scale (sqrt 2)))))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (* (pow angle 2) (- (* -1/2 (/ (* (pow a 2) (* (pow angle 2) (* b (* (sqrt 8) (- (+ (* 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/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (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 b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))))) (* 1/2 (/ (* (pow x-scale 2) (* (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* y-scale (sqrt 2)))) (* 1/2 (/ (* (pow a 2) (* b (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* y-scale (sqrt 2)))))) (* 1/2 (/ (* (pow a 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* y-scale (sqrt 2)))))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 angle 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))))))) (* y-scale (sqrt 2)))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* y-scale (sqrt 2)))) (* 1/2 (/ (* (pow a 2) (* (pow angle 2) (* b (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* y-scale (sqrt 2)))))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* y-scale (sqrt 2)))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow a 2) (* b (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* y-scale (sqrt 2)))) (* 1/2 (/ (* (pow a 2) (* (pow angle 2) (* b (* (sqrt 8) (- (+ (* 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/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (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 b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))))) (* 1/2 (/ (* (pow x-scale 2) (* (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* y-scale (sqrt 2)))))))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))) #s(hole binary64 (* 16 (/ (* (pow a 4) (pow b 6)) (* (pow x-scale 4) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow angle 2) (* (pow b 4) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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 x-scale 2) (pow y-scale 2)))) (* 16 (/ (* (pow a 4) (pow b 6)) (* (pow x-scale 4) (pow y-scale 2)))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))) #s(hole binary64 (+ (* 16 (/ (* (pow a 4) (pow b 6)) (* (pow x-scale 4) (pow y-scale 2)))) (* (pow angle 2) (+ (* 8 (/ (* (pow a 4) (* (pow angle 2) (* (pow b 4) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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 x-scale 2) (pow y-scale 2)))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))) #s(hole binary64 (+ (* 16 (/ (* (pow a 4) (pow b 6)) (* (pow x-scale 4) (pow y-scale 2)))) (* (pow angle 2) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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 x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* 8 (/ (* (pow a 4) (* (pow angle 2) (* (pow b 4) (+ (* 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/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (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 b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))))))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))) (* (pow x-scale 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 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) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (pow x-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 x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (pow x-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 x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 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 angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (pow x-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 x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 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 angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 angle 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/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (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 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 b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (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 (+ (/ (pow a 2) (pow y-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) (/ (/ (+ (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 x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))))) (+ (/ (pow a 2) (pow y-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) (/ (/ (+ (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 x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (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) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))))))) (+ (/ (pow a 2) (pow y-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) (/ (/ (+ (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 x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 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 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/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 b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))))))) (+ (/ (pow a 2) (pow y-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 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 (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 (* (/ 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 (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 (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 (/ (/ (+ (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 (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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (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 (cos (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (pow x-scale 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (+ (/ (* (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)) (+ (/ (* (pow b 2) (pow (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 (cos (* 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)) (/ (* (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) #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 (sin (* (/ angle 180) (PI))) #s(hole binary64 (sin (* 1/180 (* angle (PI))))))
#s(approx (cos (* (/ angle 180) (PI))) #s(hole binary64 (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) #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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/8 (* (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* 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 a 2) (pow (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 (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 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) (+ (* 1/8 (* (* y-scale (* (sqrt 8) (+ (* 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 a 2) (pow (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 (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 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) (+ (* 1/8 (* (* y-scale (* (sqrt 8) (+ (* 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 a 2) (pow (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 (/ 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) (+ (* 1/8 (* (* y-scale (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (* -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 (cos (* 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 (/ (* (+ (* 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 a 2) (pow (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 (cos (* 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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 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)))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* (pow x-scale 2) y-scale)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (pow x-scale 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (- (* -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 (cos (* 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 (/ (* (+ (* 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 a 2) (pow (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 (cos (* 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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 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))))))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* (pow x-scale 2) y-scale)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (pow x-scale 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) y-scale) (sqrt (+ (* 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) y-scale) (sqrt (/ 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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) y-scale) (sqrt (+ (* 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) y-scale) (sqrt (/ 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (- (* -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 (cos (* 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 (/ (* (+ (* 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 a 2) (pow (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 (cos (* 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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 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))))))))))) y-scale) (sqrt (/ 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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 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 4) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (* (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 a 2) (pow (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 y-scale 2))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)))) (pow x-scale 4))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2))) (* (pow x-scale 2) (+ (* 4 (/ (* (pow a 4) (* (pow b 4) (* (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 y-scale 2) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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 a 2) (pow (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 y-scale 2)))))) (pow x-scale 4))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2))) (* (pow x-scale 2) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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 a 2) (pow (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 y-scale 2))) (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow b 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 y-scale 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 3)))) (* 4 (/ (* (pow a 4) (* (pow b 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) (* 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 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 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 x-scale #s(hole binary64 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (* 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (+ (* 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 a 2) (pow (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))))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (+ (* 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 a 2) (pow (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))))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (+ (* 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 a 2) (pow (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))))
#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 (/ (+ (* (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)))))) (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 (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 4)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 6)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 4)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) x-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) x-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 6) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) x-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) x-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) x-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 6) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) x-scale)))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 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) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (pow y-scale 2)))) (pow x-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 4) (- (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 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))))))) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (pow y-scale 2))))) (pow x-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 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 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))) 3))))) (+ (* 4 (/ (* (pow a 4) (* (pow b 4) (- (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 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))))))) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (pow y-scale 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 y-scale 2))) (* 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 4)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 6)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 4)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) x-scale))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) x-scale))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 6) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) x-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) x-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) x-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 6) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) x-scale))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/8 (* (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* 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))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow y-scale 2) (+ (* 1/8 (* (* x-scale (* (sqrt 8) (+ (* 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)))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow y-scale 2) (+ (* 1/8 (* (* x-scale (* (sqrt 8) (+ (* 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)))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* 1/8 (* (* x-scale (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (* -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 (/ (* (+ (* 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)))) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale (pow y-scale 2))) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (pow y-scale 2) (* (sqrt 8) (+ (* 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)))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow y-scale 2))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow y-scale 2))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (- (* -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 (/ (* (+ (* 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)))) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow y-scale 2))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale (pow y-scale 2))) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (pow y-scale 2) (* (sqrt 8) (+ (* 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)))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow y-scale 2))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow y-scale 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 2))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow y-scale 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (- (* -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 (/ (* (+ (* 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)))) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))) (pow y-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (pow y-scale 4))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (* (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 a 2) (pow (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 x-scale 2))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow x-scale 2)))) (pow y-scale 4))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow x-scale 2))) (* (pow y-scale 2) (+ (* 4 (/ (* (pow a 4) (* (pow b 4) (* (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 x-scale 2) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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)))))) (pow x-scale 2)))))) (pow y-scale 4))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow x-scale 2))) (* (pow y-scale 2) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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)))))) (pow x-scale 2))) (* (pow y-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow b 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 x-scale 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 3)))) (* 4 (/ (* (pow a 4) (* (pow b 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) (* 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 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 4))))
#s(approx y-scale #s(hole binary64 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (* 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (+ (* 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 a 2) (pow (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))))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (+ (* 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 a 2) (pow (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))))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (+ (* 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 a 2) (pow (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))))
#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 (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 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)))))) (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 (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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))))))))) (pow y-scale 4)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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))))))))) (pow y-scale 6)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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))))))))) (pow y-scale 4)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))) y-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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)))))))) y-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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)))))))))) (* x-scale (pow y-scale 6))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))))) y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))) y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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)))))))) y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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)))))))))) (* x-scale (pow y-scale 6))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))))) y-scale)))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 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)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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)))))) (pow x-scale 2)))) (pow y-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 4) (- (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 x-scale 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))))))) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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)))))) (pow x-scale 2))))) (pow y-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 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 x-scale 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))))) (+ (* 4 (/ (* (pow a 4) (* (pow b 4) (- (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 x-scale 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))))))) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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)))))) (pow x-scale 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 x-scale 2))) (* 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (* 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))) (+ (/ (* (pow a 2) (pow (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (* 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))) (+ (/ (* (pow a 2) (pow (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (* 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))) (+ (/ (* (pow a 2) (pow (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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))))))))) (pow y-scale 4)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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))))))))) (pow y-scale 6)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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))))))))) (pow y-scale 4)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))) y-scale))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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)))))))) y-scale))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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)))))))))) (* x-scale (pow y-scale 6))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))))) y-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))) y-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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)))))))) y-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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)))))))))) (* x-scale (pow y-scale 6))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))))) y-scale))))
Outputs
(/.f64 (neg.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))
(neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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 (sqrt.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))) (sqrt.f64 (+.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)) (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)))))
(pow.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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)))) #s(literal 1/2 binary64))
(sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))
(*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))
#s(literal 2 binary64)
(/.f64 (neg.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))) (neg.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))
(/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))
(*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))
#s(literal 4 binary64)
(*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))
(*.f64 b a)
b
a
(*.f64 b (neg.f64 a))
(neg.f64 a)
(*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))
(*.f64 (*.f64 x-scale y-scale) (*.f64 x-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)
x-scale
y-scale
(/.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 3 binary64)) (pow.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)) #s(literal 3 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)) (-.f64 (*.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)) (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 (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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)) (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 (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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)) (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 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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(literal 3 binary64)) (pow.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) #s(literal 3 binary64))) (fma.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 (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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 (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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)))))
(/.f64 (fma.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(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 (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))))
(sin.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
#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))))
(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 (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))))
(*.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))))
(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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 a a) (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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/8 binary64) (*.f64 (*.f64 (*.f64 a a) (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(literal 2 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(literal 2 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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/8 binary64) (*.f64 (*.f64 (*.f64 a a) (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.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(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(literal 2 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(literal 2 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (-.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.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(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(literal 2 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(literal 2 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (fma.f64 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(literal 2 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (fma.f64 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.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(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(literal 2 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(literal 2 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 x-scale x-scale) (*.f64 y-scale y-scale)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (pow.f64 b #s(literal 4 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 x-scale x-scale) (*.f64 y-scale y-scale)))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (pow.f64 b #s(literal 4 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 4 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (pow.f64 b #s(literal 4 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (pow.f64 b #s(literal 4 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (pow.f64 b #s(literal 4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.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(literal -3 binary64)))) (*.f64 #s(literal 4 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 b #s(literal 4 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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 (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (*.f64 #s(literal 8 binary64) (/.f64 (pow.f64 (*.f64 a b) #s(literal 4 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))
#s(approx (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 b b)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))
#s(approx (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2)) (*.f64 #s(literal -4 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 b b)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))
#s(approx (* 4 (* (* b a) (* b (neg a)))) (*.f64 #s(literal -4 binary64) (*.f64 (*.f64 a a) (*.f64 b b))))
#s(approx (* (* b a) (* b (neg a))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 a a) (*.f64 b b))))
#s(approx (* b a) (*.f64 a b))
#s(approx a a)
#s(approx (* b (neg a)) (*.f64 #s(literal -1 binary64) (*.f64 a b)))
#s(approx (neg a) (*.f64 #s(literal -1 binary64) a))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (fma.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (fma.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (/.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (fma.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (fma.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.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(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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))))))) (+.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 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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)) (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 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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) (/.f64 (pow.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 (/ (/ (+ (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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.f64 x-scale x-scale) (*.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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (/.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.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(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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (*.f64 (*.f64 x-scale x-scale) (*.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 (*.f64 x-scale x-scale) (*.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 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-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 #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 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) (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 x-scale y-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)))))) (*.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 (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 a (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 a (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.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 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 a (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.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 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 a (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.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 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))))) (pow.f64 a #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 (*.f64 a a) a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) a) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) a) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) a) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 6 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 a a) a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 6 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 (pow.f64 b #s(literal 4 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 6 binary64)) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 6 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 a #s(literal 4 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 6 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 b #s(literal 4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 a #s(literal 6 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 4 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 a #s(literal 4 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 (*.f64 x-scale x-scale) (*.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 a a) (*.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 (*.f64 a a) (*.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 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 a a) (*.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 (*.f64 a a) (*.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 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 a a) (*.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 (*.f64 a a) (*.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 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 a a) (*.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 (*.f64 a a) (*.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 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 (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)) (*.f64 (*.f64 a a) (*.f64 x-scale x-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 (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 (/ (/ (+ (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)) (*.f64 (*.f64 a a) (*.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 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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 (*.f64 a a) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 (*.f64 a a) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (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 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.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 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (+.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)) (*.f64 (*.f64 a a) (*.f64 x-scale x-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 (/.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) (*.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 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))) (*.f64 (*.f64 x-scale x-scale) (*.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 a #s(literal 4 binary64)) (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))) (*.f64 (*.f64 a a) (*.f64 (*.f64 x-scale x-scale) (*.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 (*.f64 x-scale x-scale) (*.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 a #s(literal 4 binary64)) (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))) (*.f64 (*.f64 a a) (*.f64 (*.f64 x-scale x-scale) (*.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 (pow.f64 a #s(literal 4 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.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 (*.f64 x-scale x-scale) (*.f64 y-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 #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 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 (*.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))))) (*.f64 x-scale y-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)))))) (*.f64 (*.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 (*.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 (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) 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 a (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.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 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.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 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.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 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))))) (pow.f64 a #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 a a) a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) a) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) a) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) a) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 6 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 (*.f64 a a) a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 6 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 b b) (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))) (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 b b) (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))) (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 b b) (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 #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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))) (*.f64 (/.f64 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 b b) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))))) (*.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))))) (*.f64 (/.f64 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 b b) (-.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 #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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))))) (*.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))))) (*.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))))) (*.f64 (/.f64 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))) (*.f64 (/.f64 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (fma.f64 (/.f64 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))))) (*.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (fma.f64 (/.f64 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))))) (*.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 #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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))))) (*.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (pow.f64 a #s(literal 4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (pow.f64 a #s(literal 4 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 4 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 x-scale x-scale) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale x-scale) (*.f64 y-scale y-scale)))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (pow.f64 a #s(literal 4 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 4 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 a #s(literal 4 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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 x-scale x-scale) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)))) (fma.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)))) (fma.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)))))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)))) (fma.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)))))) (fma.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (*.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 (/.f64 (pow.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 (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 (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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (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)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))))))
#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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 b (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 b (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 b (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 b (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) #s(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 (*.f64 b b) b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) b) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) b) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) b) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) #s(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 6 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 (*.f64 b b) b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) #s(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 6 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 6 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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale x-scale) (*.f64 y-scale y-scale)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 6 binary64)) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 6 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 6 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 a #s(literal 4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) #s(literal -3 binary64)))) (fma.f64 #s(literal 4 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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) (*.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)) (*.f64 (*.f64 b b) (*.f64 x-scale x-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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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) (*.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)) (*.f64 (*.f64 b b) (*.f64 x-scale x-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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) #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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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) (*.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)) (*.f64 (*.f64 b b) (*.f64 x-scale x-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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) (*.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)) (*.f64 (*.f64 b b) (*.f64 x-scale x-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 (* 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)) (*.f64 (*.f64 b b) (*.f64 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 (* 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 (/ (/ (+ (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)) (*.f64 (*.f64 b b) (*.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)))))
#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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) #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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (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 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.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 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (+.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)) (*.f64 (*.f64 b b) (*.f64 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 (/.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) (*.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))))))
#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) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.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 (*.f64 x-scale x-scale) (*.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) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (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))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.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 (*.f64 x-scale x-scale) (*.f64 y-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 (*.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 (*.f64 b b) (*.f64 x-scale y-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))))) (*.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 (*.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 (*.f64 b b) 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 b (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) #s(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 (*.f64 b b) b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 b b) b) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 b b) b) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 b b) b) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) #s(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 6 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 (*.f64 b b) b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 b b) b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 b b) b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 b b) b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) #s(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 6 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 #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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)))))))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 b (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (/.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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (/.f64 (*.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 y-scale y-scale)) (+.f64 (/.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 (/.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 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (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/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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)))))))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 #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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)))))))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 4 binary64))) (*.f64 (*.f64 x-scale x-scale) y-scale))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 angle angle) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 y-scale (sqrt.f64 #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 4 binary64))) (*.f64 (*.f64 x-scale x-scale) y-scale))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 angle angle) (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 #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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)))))))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))))) (*.f64 y-scale (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 y-scale (sqrt.f64 #s(literal 2 binary64))))))) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 4 binary64))) (*.f64 (*.f64 x-scale x-scale) y-scale))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 angle angle) (-.f64 (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (/.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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (/.f64 (*.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 y-scale y-scale)) (+.f64 (/.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 (/.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 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (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/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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)))))))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))))) (*.f64 y-scale (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 #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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)))))))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))))) (*.f64 y-scale (sqrt.f64 #s(literal 2 binary64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 y-scale (sqrt.f64 #s(literal 2 binary64))))))) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 4 binary64))) (*.f64 (*.f64 x-scale x-scale) y-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 4 binary64))) (*.f64 (*.f64 x-scale x-scale) y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 y-scale (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 4 binary64))) (*.f64 (*.f64 x-scale x-scale) y-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 y-scale (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 #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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)))))))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))))) (*.f64 y-scale (sqrt.f64 #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 4 binary64))) (*.f64 (*.f64 x-scale x-scale) y-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 y-scale (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 #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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)))))))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))))) (*.f64 y-scale (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (/.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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (/.f64 (*.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 y-scale y-scale)) (+.f64 (/.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 (/.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 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (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/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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)))))))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))))) (*.f64 y-scale (sqrt.f64 #s(literal 2 binary64)))))))) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 4 binary64))) (*.f64 (*.f64 x-scale x-scale) y-scale))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 16 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 b #s(literal 6 binary64))) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (*.f64 y-scale y-scale)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 16 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 b #s(literal 6 binary64))) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (*.f64 y-scale y-scale))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 16 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 b #s(literal 6 binary64))) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (*.f64 y-scale y-scale))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 b #s(literal 4 binary64)) (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/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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 x-scale x-scale) (*.f64 y-scale y-scale))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 16 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 b #s(literal 6 binary64))) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (*.f64 y-scale y-scale))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 b #s(literal 4 binary64)) (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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (/.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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (/.f64 (*.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 y-scale y-scale)) (+.f64 (/.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 (/.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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (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/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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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 x-scale x-scale) (*.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 2 binary64) (/.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) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 b b) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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))))))))))))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 b b) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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/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/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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 b b) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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/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/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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)))) (fma.f64 (*.f64 angle angle) (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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (/.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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (/.f64 (*.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 y-scale y-scale)) (+.f64 (/.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 (/.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 (*.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) (fma.f64 #s(literal 1/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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 a a) (*.f64 y-scale y-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) (/ (/ (+ (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 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)))))) (+.f64 (/.f64 (*.f64 a a) (*.f64 y-scale y-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) (/ (/ (+ (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 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-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 #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 (*.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) (fma.f64 #s(literal 1/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 a a) (*.f64 y-scale y-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) (/ (/ (+ (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 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-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 #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 (*.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 y-scale y-scale)) (+.f64 (/.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 (/.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 (*.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) (fma.f64 #s(literal 1/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 a a) (*.f64 y-scale y-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) (/.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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) x-scale) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) 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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) x-scale) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) 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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) x-scale) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) 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) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))) (*.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) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (fma.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.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) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (fma.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.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) (*.f64 (*.f64 angle angle) (*.f64 (PI.f64) (PI.f64))))))
#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) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64)))))))
#s(approx (pow (* a (sin (* (/ angle 180) (PI)))) 2) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.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) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.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) (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64))) (*.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 (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) (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64))) (*.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) (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (*.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) (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (*.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 (* (/ 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 (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) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64)))) (*.f64 b b)))
#s(approx (pow (* b (cos (* (/ angle 180) (PI)))) 2) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.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 b b)))
#s(approx (pow (* b (cos (* (/ angle 180) (PI)))) 2) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (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) (*.f64 (*.f64 angle angle) (*.f64 (PI.f64) (PI.f64))))))
#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 (/ (/ (+ (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 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) y-scale) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) 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 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) y-scale) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) 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 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) y-scale) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) 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) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))))) (*.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) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (fma.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (fma.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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) (*.f64 (*.f64 angle angle) (*.f64 (PI.f64) (PI.f64)))) (*.f64 a a)))
#s(approx (pow (* a (cos (* (/ angle 180) (PI)))) 2) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.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) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 angle angle) (*.f64 (PI.f64) (PI.f64)))))))
#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 (pow (* b (sin (* (/ angle 180) (PI)))) 2) (*.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))))))
#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) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64)))))))
#s(approx (pow (* b (sin (* (/ angle 180) (PI)))) 2) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64))) (*.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 (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (/.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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (/.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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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) (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 x-scale x-scale) (*.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 (*.f64 angle angle) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.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 (*.f64 angle angle) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (/.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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))) (*.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.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 (*.f64 angle angle) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (*.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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (/.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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (/.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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-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 #s(literal 1/90 binary64) (/.f64 (*.f64 angle (*.f64 (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) y-scale) (*.f64 angle (fma.f64 #s(literal 1/90 binary64) (/.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 x-scale y-scale)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/11664000 binary64) (/.f64 (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 x-scale y-scale)) (*.f64 #s(literal -1/34992000 binary64) (/.f64 (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (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) y-scale) (*.f64 angle (fma.f64 #s(literal 1/90 binary64) (/.f64 (*.f64 (PI.f64) (-.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/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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 x-scale y-scale)) (*.f64 #s(literal -1/34992000 binary64) (/.f64 (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (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) y-scale) (*.f64 angle (fma.f64 #s(literal 1/90 binary64) (/.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 x-scale y-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/11664000 binary64) (/.f64 (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 x-scale y-scale)) (*.f64 #s(literal -1/34992000 binary64) (/.f64 (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (-.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale) (*.f64 #s(literal -1/34992000 binary64) (/.f64 (*.f64 (*.f64 (*.f64 (PI.f64) (PI.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 (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale) (*.f64 #s(literal -1/34992000 binary64) (/.f64 (*.f64 (*.f64 (*.f64 (PI.f64) (PI.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 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/11664000 binary64) (/.f64 (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale) (*.f64 #s(literal -1/34992000 binary64) (/.f64 (*.f64 (*.f64 (*.f64 (PI.f64) (PI.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/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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.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 (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.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 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.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/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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (-.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (-.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (-.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a (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 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a (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 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a (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 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a (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 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 x-scale x-scale) (*.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a (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 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (pow.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 (*.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 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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 (sin (* (/ angle 180) (PI))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
#s(approx (cos (* (/ angle 180) (PI))) (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) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-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 #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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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)))))) (sqrt.f64 (/.f64 #s(literal 1 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 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))))) (sqrt.f64 (/.f64 #s(literal 1 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 #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))) #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)))))))))) (sqrt.f64 (/.f64 #s(literal 1 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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))))) (sqrt.f64 (/.f64 #s(literal 1 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 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))) #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))))))))) (sqrt.f64 (/.f64 #s(literal 1 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 #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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)))) (-.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 (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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 #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 #s(literal 1/4 binary64) (/.f64 (pow.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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))) #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)))))))) (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)))))))))) (sqrt.f64 (/.f64 #s(literal 1 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))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 x-scale x-scale) y-scale)) (sqrt.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))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))) #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))))))))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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)))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 x-scale x-scale) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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)))) (-.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 (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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 #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 #s(literal 1/4 binary64) (/.f64 (pow.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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))) #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)))))))) (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))))))))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))) #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)))))))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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)))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 x-scale x-scale) y-scale)) (sqrt.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)))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.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 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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)))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))) #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))))))))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.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 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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)))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))) #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)))))))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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)))) (-.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 (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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 #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 #s(literal 1/4 binary64) (/.f64 (pow.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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))) #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)))))))) (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))))))))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 (pow.f64 x-scale #s(literal 4 binary64)) (*.f64 y-scale y-scale)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 y-scale y-scale)))) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 y-scale y-scale)) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.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 (*.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 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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 y-scale y-scale)))))) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 y-scale y-scale)) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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 y-scale y-scale)) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.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))))))))) (*.f64 (*.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 3 binary64)))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.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 (*.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))))))))))) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (pow (* x-scale y-scale) 2) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))
#s(approx (* x-scale y-scale) (*.f64 x-scale y-scale))
#s(approx 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (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 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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)))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (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 (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)))) (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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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)))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (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 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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 (*.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 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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)))
#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 (+.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) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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)))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 x-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 x-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 x-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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)))) (-.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)))) (*.f64 #s(literal 1/2 binary64) (/.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 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 2 binary64) (/.f64 (pow.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 #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))))))))) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))) x-scale))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 (pow.f64 x-scale #s(literal 4 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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)))))))) x-scale))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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)))) (-.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)))) (*.f64 #s(literal 1/2 binary64) (/.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 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 2 binary64) (/.f64 (pow.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 #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 (pow.f64 x-scale #s(literal 6 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 (pow.f64 x-scale #s(literal 4 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))) x-scale))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))) x-scale))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 (pow.f64 x-scale #s(literal 4 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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)))))))) x-scale))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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)))) (-.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)))) (*.f64 #s(literal 1/2 binary64) (/.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 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 2 binary64) (/.f64 (pow.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 #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 (pow.f64 x-scale #s(literal 6 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 (pow.f64 x-scale #s(literal 4 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))) x-scale))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 y-scale y-scale)))) (*.f64 x-scale x-scale)))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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))))))) (*.f64 (pow.f64 x-scale #s(literal 4 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 y-scale y-scale))))) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 y-scale y-scale))))) (*.f64 x-scale x-scale)))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #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 6 binary64)) (*.f64 (*.f64 y-scale y-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 3 binary64))))) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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))))))) (*.f64 (pow.f64 x-scale #s(literal 4 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 y-scale y-scale))))) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 y-scale y-scale)))))) (*.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (pow.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 #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 (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 2 binary64) (/.f64 (pow.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 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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)))) (fma.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)) (*.f64 y-scale y-scale)) (fma.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)))) (-.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 6 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)))) (fma.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)) (*.f64 y-scale y-scale)) (fma.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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)))) (-.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 6 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-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) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-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 (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 x-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 x-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 x-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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)))) (-.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)))) (*.f64 #s(literal 1/2 binary64) (/.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 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 2 binary64) (/.f64 (pow.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 #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))))))))) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))) x-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 (pow.f64 x-scale #s(literal 4 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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)))))))) x-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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)))) (-.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)))) (*.f64 #s(literal 1/2 binary64) (/.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 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 2 binary64) (/.f64 (pow.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 #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 (pow.f64 x-scale #s(literal 6 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 (pow.f64 x-scale #s(literal 4 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))) x-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))) x-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 (pow.f64 x-scale #s(literal 4 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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)))))))) x-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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)))) (-.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)))) (*.f64 #s(literal 1/2 binary64) (/.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 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 2 binary64) (/.f64 (pow.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 #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 (pow.f64 x-scale #s(literal 6 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 (pow.f64 x-scale #s(literal 4 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))) x-scale)))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 x-scale (*.f64 (*.f64 y-scale y-scale) (*.f64 (sqrt.f64 #s(literal 8 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)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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/8 binary64) (*.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 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))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 x-scale (*.f64 (*.f64 y-scale y-scale) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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))) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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/8 binary64) (*.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 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))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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/8 binary64) (*.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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))) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 x-scale (*.f64 (*.f64 y-scale y-scale) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (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 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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))) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.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 (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 y-scale y-scale) (*.f64 (sqrt.f64 #s(literal 8 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))))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (*.f64 y-scale y-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 y-scale y-scale) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 y-scale y-scale) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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))) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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)))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (*.f64 y-scale y-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 y-scale y-scale) (-.f64 (*.f64 (*.f64 y-scale y-scale) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 y-scale y-scale) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (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 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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))) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.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 (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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))) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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)))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (*.f64 y-scale y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 y-scale y-scale) (*.f64 (sqrt.f64 #s(literal 8 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))))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (*.f64 y-scale y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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)))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 y-scale y-scale) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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))) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))) (*.f64 y-scale y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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)))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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))) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 y-scale y-scale) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (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 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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))) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.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 (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))))) (*.f64 y-scale y-scale)))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (*.f64 (*.f64 x-scale x-scale) (pow.f64 y-scale #s(literal 4 binary64))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.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 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.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 (*.f64 x-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 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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))))) (*.f64 x-scale x-scale)))))) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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))))) (*.f64 x-scale x-scale)) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.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 (*.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 3 binary64)))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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))))))) (*.f64 (*.f64 x-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))))))))))) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (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 (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (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 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (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 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)))) (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 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (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 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)))) (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 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 (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) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 y-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)) (/.f64 #s(literal 1 binary64) (sqrt.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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 y-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 y-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #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 #s(literal 1/2 binary64) (/.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 #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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))) (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))))))))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.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))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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))))))) y-scale))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))))) (*.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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)))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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)))))))) y-scale))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #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 #s(literal 1/2 binary64) (/.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 #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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))) (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 x-scale (pow.f64 y-scale #s(literal 6 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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)))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))))) (*.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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))))))))) y-scale))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.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)))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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))))))) y-scale))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))))) (*.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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)))))))) y-scale))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #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 #s(literal 1/2 binary64) (/.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 #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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))) (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 x-scale (pow.f64 y-scale #s(literal 6 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))))) (*.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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))))))))) y-scale))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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)))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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)))))) (*.f64 x-scale x-scale)))) (*.f64 y-scale y-scale)))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.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 (*.f64 x-scale x-scale) (*.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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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)))))) (*.f64 x-scale x-scale))))) (*.f64 y-scale y-scale)))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #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 (*.f64 x-scale x-scale) (*.f64 (pow.f64 y-scale #s(literal 6 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 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.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 (*.f64 x-scale x-scale) (*.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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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)))))) (*.f64 x-scale x-scale)))))) (*.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (pow.f64 (*.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 (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 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)) (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)) (*.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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)))) (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)) (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)) (*.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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)))) (-.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 6 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)))) (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)) (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)) (*.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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)))) (-.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 6 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))) (*.f64 (*.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) (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))) (*.f64 (*.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 (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)) (/.f64 #s(literal 1 binary64) (sqrt.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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #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 #s(literal 1/2 binary64) (/.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 #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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))) (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))))))))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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)))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.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)))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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))))))) y-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))))) (*.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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)))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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)))))))) y-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #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 #s(literal 1/2 binary64) (/.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 #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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))) (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 x-scale (pow.f64 y-scale #s(literal 6 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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)))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))))) (*.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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))))))))) y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.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))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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))))))) y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))))) (*.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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)))))))) y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #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 #s(literal 1/2 binary64) (/.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 #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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))) (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 x-scale (pow.f64 y-scale #s(literal 6 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))))) (*.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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))))))))) y-scale)))

eval311.0ms (1.4%)

Memory
18.6MiB live, 435.8MiB allocated; 46ms collecting garbage
Compiler

Compiled 340 240 to 8 755 computations (97.4% saved)

prune196.0ms (0.9%)

Memory
27.4MiB live, 211.2MiB allocated; 78ms collecting garbage
Pruning

28 alts after pruning (28 fresh and 0 done)

PrunedKeptTotal
New84228870
Fresh000
Picked101
Done000
Total84328871
Accuracy
58.3%
Counts
871 → 28
Alt Table
Click to see full alt table
StatusAccuracyProgram
2.9%
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))))))) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
▶2.2%
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
2.5%
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) #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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 y-scale y-scale)))))) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
2.3%
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) #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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))))) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
▶0.7%
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))
0.2%
(/.f64 (neg.f64 (sqrt.f64 #s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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)))))) (*.f64 x-scale x-scale)))) (*.f64 y-scale y-scale))))) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
0.1%
(/.f64 (neg.f64 (sqrt.f64 #s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 16 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 b #s(literal 6 binary64))) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (*.f64 y-scale y-scale))))))) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
2.8%
(/.f64 (neg.f64 #s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 4 binary64))) (*.f64 (*.f64 x-scale x-scale) y-scale)))) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
2.9%
(/.f64 (neg.f64 #s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 x-scale x-scale) y-scale)) (sqrt.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 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
0.2%
(/.f64 #s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
6.3%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 y-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)) (/.f64 #s(literal 1 binary64) (sqrt.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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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))))))))))
4.6%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 x-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))))
9.2%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 b (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))))))))
7.0%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 a (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.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 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))))))
▶42.4%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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))))))))
18.3%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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))))))))
20.6%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))
40.7%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))
21.3%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 b (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))))))
20.3%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 a (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))))
▶36.6%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64)))))
▶1.4%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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))))))))
1.7%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))
0.4%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 b (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))))))
0.4%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 a (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))))
0.1%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 x-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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)))))))))))
0.1%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))))))))
0.1%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.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 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))))))
Compiler

Compiled 16 502 to 5 070 computations (69.3% saved)

series982.0ms (4.4%)

Memory
10.1MiB live, 1 083.8MiB allocated; 136ms collecting garbage
Counts
101 → 1 017
Calls
Call 1
Inputs
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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)))))))
#s(literal 1/4 binary64)
(*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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 y-scale (sqrt.f64 #s(literal 8 binary64)))
y-scale
(sqrt.f64 #s(literal 8 binary64))
#s(literal 8 binary64)
(sqrt.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)))))
(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))))
#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 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
a
(sin.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 #s(literal 2 binary64) (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 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
b
(cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64)))))
(*.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64))))
(*.f64 b (*.f64 y-scale #s(literal 4 binary64)))
(*.f64 y-scale #s(literal 4 binary64))
#s(literal 4 binary64)
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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)))))))
#s(literal -1/4 binary64)
(*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))
x-scale
(sqrt.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)))))
(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))
(*.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 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 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
(neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))))))))
(sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))
(*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
(/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))
(*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))
(*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))
(*.f64 b a)
(*.f64 b (neg.f64 a))
(neg.f64 a)
(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))
(*.f64 x-scale y-scale)
(+.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(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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))))
(sin.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))
#s(literal 180 binary64)
(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))))
(cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(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))))
(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))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 b b) (*.f64 x-scale x-scale))
(*.f64 b b)
(/.f64 (*.f64 a a) (*.f64 y-scale y-scale))
(*.f64 a a)
(*.f64 y-scale y-scale)
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))
(neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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))))))
(sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))
(*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))
(/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))
(*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))
(+.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)) (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)))
(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 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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 #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))
Outputs
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (* (pow a 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (* (pow a 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (pow a 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* 1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow a 2) (+ (* -1/8 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/4 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow a 2) (+ (* 1/4 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (* (pow a 2) (+ (* -1/8 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/8 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 5) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow a 2) (+ (* (pow a 2) (+ (* -1/2 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 5) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) (* (pow a 2) (+ (* -1/2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) (* (pow a 2) (+ (* (pow a 2) (+ (* -1/2 (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 6)) (* (pow b 5) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) #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))))))
#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 a #s(hole binary64 a))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* -1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow a 2) (+ (* -1/4 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (* 1/8 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow a 2) (+ (* -1/4 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (* (pow a 2) (+ (* -1/8 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 5) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (* 1/8 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow a 2) (+ (* (pow a 2) (+ (* -1/2 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 5) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (/ (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale)))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (+ (/ (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* b (* x-scale (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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) (+ (* -1/2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 3) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* b (* x-scale (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) (/ (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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) (+ (* (pow a 2) (+ (* -1/2 (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (* (pow b 3) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (* 1/2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 6)) (* (pow b 5) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5)))))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* b (* x-scale (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) (/ (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) 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)))) #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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (* (pow a 2) (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (pow a 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* (pow b 4) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow b 4) (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 4) (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow a 2) (+ (* 4 (* (/ (* (pow a 2) (* (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 (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 x-scale 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)))))) (* 8 (/ (* (pow b 4) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 4) (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow a 2) (+ (* 8 (/ (* (pow b 4) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow a 2) (+ (* -2 (* (/ (* (pow a 2) (* (pow b 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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 x-scale 2) (pow y-scale 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))))) (* 4 (* (/ (* (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 (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 x-scale 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 (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) #s(hole binary64 (* 8 (/ (* (pow a 4) (pow b 4)) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -8 (/ (* (pow a 2) (pow b 2)) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* -4 (/ (* (pow a 2) (pow b 2)) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* 4 (* (* b a) (* b (neg a)))) #s(hole binary64 (* -4 (* (pow a 2) (pow b 2)))))
#s(approx (* (* b a) (* b (neg a))) #s(hole binary64 (* -1 (* (pow a 2) (pow b 2)))))
#s(approx (* b a) #s(hole binary64 (* a b)))
#s(approx (* b (neg a)) #s(hole binary64 (* -1 (* a b))))
#s(approx (neg a) #s(hole binary64 (* -1 a)))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (pow (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (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 (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (/ (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 (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))))))))) (+ (/ (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 (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 b 2) (pow (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 (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 (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) #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 (/ (/ (+ (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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (/ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (+ (* 1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (* (pow a 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (* (pow a 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (pow a 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* -1 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* (pow a 2) (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* (pow a 2) (- (* (pow a 2) (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* (pow a 2) (- (* (pow a 2) (- (* (pow a 2) (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* (pow a 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* (pow a 2) (+ (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* (pow a 2) (+ (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (pow a 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (* (pow a 4) (+ (* 8 (/ (* (pow a 2) (* (pow b 4) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow b 4) (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (* (pow a 4) (+ (* 8 (/ (* (pow b 4) (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow a 2) (+ (* 4 (* (/ (* (pow a 2) (* (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 (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 x-scale 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)))))) (* 8 (/ (* (pow b 4) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (* (pow a 4) (+ (* 8 (/ (* (pow b 4) (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow a 2) (+ (* 8 (/ (* (pow b 4) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow a 2) (+ (* -2 (* (/ (* (pow a 2) (* (pow b 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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 x-scale 2) (pow y-scale 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))))) (* 4 (* (/ (* (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 (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 x-scale 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 (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) #s(hole binary64 (* 8 (/ (* (pow a 4) (pow b 4)) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* -8 (/ (* (pow a 2) (pow b 2)) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale))) #s(hole binary64 (* -4 (/ (* (pow a 2) (pow b 2)) (* (pow x-scale 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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-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)) (/ (* (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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-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 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 (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 (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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-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 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)))))) (+ (/ (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 (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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-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 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))))))))) (+ (/ (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 (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 (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-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)))))
#s(approx (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-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))) (* 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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-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 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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-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 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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (/ (/ (* (* (* 2 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* 2 (* (pow b 2) (sin (* 1/180 (* angle (PI))))))))
#s(approx (* (* 2 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) #s(hole binary64 (* 2 (pow b 2))))
#s(approx (* 2 (- (* b b) (* a a))) #s(hole binary64 (+ (* -2 (pow a 2)) (* 2 (pow b 2)))))
#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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 4)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 6)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 4)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* 1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (+ (* -1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (+ (* -1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/8 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* a (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* a (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (pow (cos (* 1/180 (* angle (PI)))) 6)) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (* (pow a 2) (+ (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow a 2))) (* 2 (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (* -1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* -1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (* -1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (* 1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (* -1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (+ (* -1/8 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (* 1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale)))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (/ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* x-scale (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (+ (/ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* x-scale (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (+ (* 1/2 (/ (* (pow b 6) (pow (cos (* 1/180 (* angle (PI)))) 6)) (* (pow a 6) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5)))))) (+ (/ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* x-scale (* (sin (* 1/180 (* angle (PI)))) (sqrt 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 3) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 6) (* (pow b 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 6) (+ (* 8 (/ (* (pow b 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow b 4) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow a 2) (* (pow x-scale 2) (pow y-scale 2)))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 6) (+ (* 4 (* (/ (* (pow b 4) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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) (* (pow x-scale 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)))))) (+ (* 8 (/ (* (pow b 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow b 4) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow a 2) (* (pow x-scale 2) (pow y-scale 2))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 6) (+ (* -2 (* (/ (* (pow b 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) (* (pow x-scale 2) (pow y-scale 2)))) (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))))) (+ (* 4 (* (/ (* (pow b 4) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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) (* (pow x-scale 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)))))) (+ (* 8 (/ (* (pow b 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow b 4) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow a 2) (* (pow x-scale 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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))) (+ (/ (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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)))))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 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)) (/ (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) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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)))))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 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)) (/ (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) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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)))))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 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)) (/ (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) (/ (/ (+ (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 (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) (/ (/ (+ (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 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 (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 (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 (/ (/ (+ (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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 4)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 6)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 4)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* -1 (* (/ (* (pow a 3) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* (pow a 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* (pow a 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* (pow a 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* (/ (* (pow a 3) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* (pow a 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* (pow a 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* (pow a 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (* 8 (/ (* (pow a 6) (* (pow b 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (* (pow a 6) (+ (* 8 (/ (* (pow b 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow b 4) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow a 2) (* (pow x-scale 2) (pow y-scale 2)))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (* (pow a 6) (+ (* 4 (* (/ (* (pow b 4) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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) (* (pow x-scale 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)))))) (+ (* 8 (/ (* (pow b 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow b 4) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow a 2) (* (pow x-scale 2) (pow y-scale 2))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (* (pow a 6) (+ (* -2 (* (/ (* (pow b 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) (* (pow x-scale 2) (pow y-scale 2)))) (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))))) (+ (* 4 (* (/ (* (pow b 4) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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) (* (pow x-scale 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)))))) (+ (* 8 (/ (* (pow b 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow b 4) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow a 2) (* (pow x-scale 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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #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))) (+ (/ (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #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)))))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 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)) (/ (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) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #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)))))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 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)) (/ (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) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #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)))))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))) #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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))) #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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))) #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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))) #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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (/ (/ (* (* (* 2 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* -2 (* (pow a 2) (sin (* 1/180 (* angle (PI))))))))
#s(approx (* (* 2 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) #s(hole binary64 (* -2 (pow a 2))))
#s(approx (* 2 (- (* b b) (* a a))) #s(hole binary64 (* (pow a 2) (- (* 2 (/ (pow b 2) (pow a 2))) 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 4)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 6)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 4)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (+ (* -1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (+ (* -1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/8 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* a (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* a (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (pow (cos (* 1/180 (* angle (PI)))) 6)) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* 1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (* -1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* -1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (* -1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (* 1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (* -1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (+ (* -1/8 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (* 1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (/ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* x-scale (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (+ (/ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* x-scale (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (+ (* 1/2 (/ (* (pow b 6) (pow (cos (* 1/180 (* angle (PI)))) 6)) (* (pow a 6) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5)))))) (+ (/ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* x-scale (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow a 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow a 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow a 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 3) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow a 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow a 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow a 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* -1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* -1 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* -1 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 4)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* -1 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 6)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 4)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* (/ (* (pow a 3) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* -1 (* (pow a 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* -1 (* (pow a 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* -1 (* (pow a 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* -1 (* (/ (* (pow a 3) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* -1 (* (pow a 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* -1 (* (pow a 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* -1 (* (pow a 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 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) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))) (sqrt (/ 1 (+ (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 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) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (sqrt (/ 1 (+ (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 (cos (* 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) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))) (sqrt (/ 1 (+ (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 (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 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow b 2) (+ (* -1/8 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/4 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow b 2) (+ (* 1/4 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (* (pow b 2) (+ (* -1/8 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/8 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 5) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow b 2) (+ (* -1/2 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow b 2) (+ (* (pow b 2) (+ (* -1/2 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 5) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (* (pow b 2) (+ (* -1/2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (* (pow b 2) (+ (* (pow b 2) (+ (* -1/2 (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 6)) (* (pow a 5) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 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 b #s(hole binary64 b))
#s(approx (* 1/4 (* b (* y-scale 4))) #s(hole binary64 (* b y-scale)))
#s(approx (* b (* y-scale 4)) #s(hole binary64 (* 4 (* b y-scale))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* -1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow b 2) (+ (* -1/4 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (* 1/8 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow b 2) (+ (* -1/4 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (* (pow b 2) (+ (* -1/8 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 5) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (* 1/8 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow b 2) (+ (* -1/2 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow b 2) (+ (* (pow b 2) (+ (* -1/2 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 5) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (+ (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* a (* x-scale (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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) (+ (* -1/2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 3) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* a (* x-scale (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))) (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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) (+ (* (pow b 2) (+ (* -1/2 (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (* (pow a 3) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (* 1/2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 6)) (* (pow a 5) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5)))))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* a (* x-scale (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))) (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale))))
#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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (* (pow b 2) (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 4) (* (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 (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow b 2) (+ (* 4 (* (/ (* (pow a 4) (* (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))))))) (* (pow x-scale 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)))))) (* 8 (/ (* (pow a 4) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow b 2) (+ (* 8 (/ (* (pow a 4) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow b 2) (+ (* -2 (* (/ (* (pow a 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)))))))) (* (pow x-scale 2) (pow y-scale 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))))) (* 4 (* (/ (* (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 (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 x-scale 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 (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (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 (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (/ (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 (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))))))))) (+ (/ (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 (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (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 (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 (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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (/ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (+ (* 1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 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) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))) (sqrt (/ 1 (+ (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 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) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (sqrt (/ 1 (+ (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 (cos (* 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) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))) (sqrt (/ 1 (+ (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* -1 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* (pow b 2) (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* (pow b 2) (- (* (pow b 2) (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* (pow b 2) (- (* (pow b 2) (- (* (pow b 2) (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* (pow b 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* (pow b 2) (+ (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* (pow b 2) (+ (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (* (pow b 4) (+ (* 8 (/ (* (pow a 4) (* (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 (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (* (pow b 4) (+ (* 8 (/ (* (pow a 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow b 2) (+ (* 4 (* (/ (* (pow a 4) (* (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))))))) (* (pow x-scale 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)))))) (* 8 (/ (* (pow a 4) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (* (pow b 4) (+ (* 8 (/ (* (pow a 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow b 2) (+ (* 8 (/ (* (pow a 4) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow b 2) (+ (* -2 (* (/ (* (pow a 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)))))))) (* (pow x-scale 2) (pow y-scale 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))))) (* 4 (* (/ (* (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 (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 x-scale 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 (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #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 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #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 (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 (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #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)))))) (+ (/ (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 (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #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))))))))) (+ (/ (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 (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 (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))) #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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))) #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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))) #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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))) #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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (- (* b b) (* a a)) #s(hole binary64 (- (pow b 2) (pow a 2))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 4)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 6)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 4)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (+ (* 1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (+ (* -1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (+ (* -1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/8 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* 1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* b (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* b (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (pow (sin (* 1/180 (* angle (PI)))) 6)) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (* (pow b 2) (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow b 2))) (* 2 (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (* -1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* -1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (* -1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (* 1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (* -1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (+ (* -1/8 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (* 1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (/ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (+ (/ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (+ (* 1/2 (/ (* (pow a 6) (pow (sin (* 1/180 (* angle (PI)))) 6)) (* (pow b 6) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5)))))) (+ (/ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (sqrt 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 3) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 6) (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 6) (+ (* 8 (/ (* (pow a 4) (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (+ (* 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 (cos (* 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 x-scale 2) (pow y-scale 2)))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 6) (+ (* 4 (* (/ (* (pow a 4) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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) (* (pow x-scale 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)))))) (+ (* 8 (/ (* (pow a 4) (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (+ (* 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 (cos (* 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 x-scale 2) (pow y-scale 2))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 6) (+ (* -2 (* (/ (* (pow a 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) (* (pow x-scale 2) (pow y-scale 2)))) (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))))) (+ (* 4 (* (/ (* (pow a 4) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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) (* (pow x-scale 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)))))) (+ (* 8 (/ (* (pow a 4) (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (+ (* 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 (cos (* 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 x-scale 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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))) (+ (/ (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 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)) (/ (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 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)) (/ (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 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)) (/ (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 (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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 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)) (/ (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) #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 (/ (/ (+ (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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* 1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 4)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 6)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 4)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* -1 (* (/ (* (pow a 2) (* (pow b 3) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* (pow b 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* (pow b 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* (pow b 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* (/ (* (pow a 2) (* (pow b 3) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* (pow b 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* (pow b 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* (pow b 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (* 8 (/ (* (pow a 4) (* (pow b 6) (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (* (pow b 6) (+ (* 8 (/ (* (pow a 4) (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (+ (* 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 (cos (* 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 x-scale 2) (pow y-scale 2)))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (* (pow b 6) (+ (* 4 (* (/ (* (pow a 4) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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) (* (pow x-scale 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)))))) (+ (* 8 (/ (* (pow a 4) (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (+ (* 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 (cos (* 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 x-scale 2) (pow y-scale 2))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (* (pow b 6) (+ (* -2 (* (/ (* (pow a 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) (* (pow x-scale 2) (pow y-scale 2)))) (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))))) (+ (* 4 (* (/ (* (pow a 4) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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) (* (pow x-scale 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)))))) (+ (* 8 (/ (* (pow a 4) (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (+ (* 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 (cos (* 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 x-scale 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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-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)) (/ (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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-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))) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 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)) (/ (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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-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))) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 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)) (/ (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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-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))) (+ (* -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)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-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))))))
#s(approx (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-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))) (* 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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-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))) (+ (* 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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-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))) (+ (* -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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (/ (/ (* (* (* 2 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) #s(hole binary64 (* (pow b 2) (+ 2 (* -2 (/ (pow a 2) (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 4)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 6)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 4)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (+ (* 1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (+ (* -1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (+ (* -1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/8 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* 1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* b (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* b (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (pow (sin (* 1/180 (* angle (PI)))) 6)) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* 1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (* -1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* -1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (* -1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (* 1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (* -1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (+ (* -1/8 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (* 1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (/ (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (/ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (+ (/ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (+ (* 1/2 (/ (* (pow a 6) (pow (sin (* 1/180 (* angle (PI)))) 6)) (* (pow b 6) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5)))))) (+ (/ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow b 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow b 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow b 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 3) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow b 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow b 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow b 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* -1 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* -1 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 4)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* -1 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 6)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 4)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* (/ (* (pow a 2) (* (pow b 3) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* -1 (* (pow b 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* -1 (* (pow b 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* -1 (* (pow b 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* -1 (* (/ (* (pow a 2) (* (pow b 3) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* -1 (* (pow b 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* -1 (* (pow b 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* -1 (* (pow b 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))))))) (* b (sqrt 2)))) (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* b (sqrt 2)))) (* 1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* b (sqrt 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* 1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* 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/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (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 b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))))) (* 1/2 (/ (* (pow x-scale 2) (* (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* b (sqrt 2)))) (* 1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/8 (/ (* (pow angle 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2))))))) (* b (sqrt 2)))) (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* y-scale (* (sqrt 8) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))))) (* b (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* y-scale (* (sqrt 8) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* y-scale (* (sqrt 8) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* 1/8 (/ (* y-scale (* (sqrt 8) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2))))))) (* b (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* y-scale (* (sqrt 8) (- (+ (* 2 (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* 2 (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))))) (* 1/2 (/ (* (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2)))))) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* b (* y-scale (* (sqrt 2) (sqrt 8))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* 1/2 (/ (* (pow angle 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2))))))) (* b (sqrt 2)))) (* b (* y-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* b (* y-scale (* (sqrt 2) (sqrt 8)))) (* (pow angle 2) (+ (* 1/2 (/ (* y-scale (* (sqrt 8) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))))) (* b (sqrt 2)))) (* 1/2 (/ (* (pow angle 2) (* y-scale (* (sqrt 8) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* b (* y-scale (* (sqrt 2) (sqrt 8)))) (* (pow angle 2) (+ (* 1/2 (/ (* y-scale (* (sqrt 8) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* 1/2 (/ (* y-scale (* (sqrt 8) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2))))))) (* b (sqrt 2)))) (* 1/2 (/ (* (pow angle 2) (* y-scale (* (sqrt 8) (- (+ (* 2 (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* 2 (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))))) (* 1/2 (/ (* (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2)))))) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* b (sqrt 2))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* 1/2 (/ (* (pow angle 2) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2))))) (* b (sqrt 2)))) (* b (sqrt 2)))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* b (sqrt 2)) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2)))))) (* b (sqrt 2)))) (* 1/2 (/ (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) (* b (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* b (sqrt 2)) (* (pow angle 2) (+ (* 1/2 (/ (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (- (+ (* 2 (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* 2 (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))))) (* 1/2 (/ (* (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2)))))) (* (pow b 2) (pow (sqrt 2) 2)))))) (* b (sqrt 2)))) (* 1/2 (/ (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2))))) (* b (sqrt 2)))))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (* 2 (pow b 2))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (+ (* 2 (pow b 2)) (* (pow angle 2) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (+ (* 2 (pow b 2)) (* (pow angle 2) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (+ (* 1/16200 (* (pow a 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (+ (* 2 (pow b 2)) (* (pow angle 2) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (+ (* 1/16200 (* (pow a 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (+ (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (* (pow angle 2) (+ (* 2 (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* 2 (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))))))))))))))
#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 (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 (* angle (PI)) #s(hole binary64 (* angle (PI))))
#s(approx angle #s(hole binary64 angle))
#s(approx (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (* 2 (pow b 2))))
#s(approx (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (+ (* -1/16200 (* (pow angle 2) (* (pow b 2) (pow (PI) 2)))) (* 2 (pow b 2)))))
#s(approx (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (+ (* 2 (pow b 2)) (* (pow angle 2) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 2 (* (pow angle 2) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))))))
#s(approx (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (+ (* 2 (pow b 2)) (* (pow angle 2) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* 2 (* (pow angle 2) (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))))))
#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 (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/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* -1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))))) (* b (sqrt 2)))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* -1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* -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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* b (sqrt 2)))) (* -1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))))) (* b (sqrt 2)))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* -1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* -1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* 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)))) (* 1/2 (/ (* (pow x-scale 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)))) (- (+ (* -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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* b (sqrt 2)))) (* -1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* -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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (* y-scale (* (sqrt 2) (sqrt 8))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* 1/2 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))))) (* b (sqrt 2)))) (* b (* y-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* b (* y-scale (* (sqrt 2) (sqrt 8)))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* -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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* b (sqrt 2)))) (* 1/2 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))))) (* b (sqrt 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* b (* y-scale (* (sqrt 2) (sqrt 8)))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* 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)))) (* 1/2 (/ (* (pow x-scale 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)))) (- (+ (* -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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* b (sqrt 2)))) (* 1/2 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* -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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (/ (* b (sqrt 2)) x-scale)))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (+ (* 1/2 (/ (* (pow angle 2) (* x-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)))))) (* b (sqrt 2)))) (/ (* b (sqrt 2)) x-scale))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 angle 2) (+ (* 1/2 (/ (* x-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))))) (* b (sqrt 2)))) (* 1/2 (/ (* (pow angle 2) (* x-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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* b (sqrt 2)))))) (/ (* b (sqrt 2)) x-scale))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 angle 2) (+ (* 1/2 (/ (* x-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))))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* 1/2 (/ (* x-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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2)))))) (* b (sqrt 2)))) (* 1/2 (/ (* (pow angle 2) (* x-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)))) (* 1/2 (/ (* (pow x-scale 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)))) (- (+ (* -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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* (pow b 2) (pow (sqrt 2) 2))))))) (* b (sqrt 2)))))))) (/ (* b (sqrt 2)) 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)))) #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 (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 angle 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))))))) (* y-scale (sqrt 2)))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* (pow angle 2) (* b (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* y-scale (sqrt 2)))) (* 1/2 (/ (* (pow a 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* y-scale (sqrt 2)))))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (* (pow angle 2) (- (* -1/2 (/ (* (pow a 2) (* (pow angle 2) (* b (* (sqrt 8) (- (+ (* 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/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (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 b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))))) (* 1/2 (/ (* (pow x-scale 2) (* (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* y-scale (sqrt 2)))) (* 1/2 (/ (* (pow a 2) (* b (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* y-scale (sqrt 2)))))) (* 1/2 (/ (* (pow a 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* y-scale (sqrt 2)))))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 angle 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))))))) (* y-scale (sqrt 2)))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* y-scale (sqrt 2)))) (* 1/2 (/ (* (pow a 2) (* (pow angle 2) (* b (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* y-scale (sqrt 2)))))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* y-scale (sqrt 2)))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow a 2) (* b (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* y-scale (sqrt 2)))) (* 1/2 (/ (* (pow a 2) (* (pow angle 2) (* b (* (sqrt 8) (- (+ (* 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/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (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 b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))))) (* 1/2 (/ (* (pow x-scale 2) (* (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* y-scale (sqrt 2)))))))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))) #s(hole binary64 (* 16 (/ (* (pow a 4) (pow b 6)) (* (pow x-scale 4) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow angle 2) (* (pow b 4) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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 x-scale 2) (pow y-scale 2)))) (* 16 (/ (* (pow a 4) (pow b 6)) (* (pow x-scale 4) (pow y-scale 2)))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))) #s(hole binary64 (+ (* 16 (/ (* (pow a 4) (pow b 6)) (* (pow x-scale 4) (pow y-scale 2)))) (* (pow angle 2) (+ (* 8 (/ (* (pow a 4) (* (pow angle 2) (* (pow b 4) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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 x-scale 2) (pow y-scale 2)))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))) #s(hole binary64 (+ (* 16 (/ (* (pow a 4) (pow b 6)) (* (pow x-scale 4) (pow y-scale 2)))) (* (pow angle 2) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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 x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* 8 (/ (* (pow a 4) (* (pow angle 2) (* (pow b 4) (+ (* 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/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (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 b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))))))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))) (* (pow x-scale 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 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) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (pow x-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 x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (pow x-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 x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 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 angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (pow x-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 x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 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 angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 angle 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/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (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 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 b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (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 (+ (/ (pow a 2) (pow y-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) (/ (/ (+ (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 x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))))) (+ (/ (pow a 2) (pow y-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) (/ (/ (+ (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 x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (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) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))))))) (+ (/ (pow a 2) (pow y-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) (/ (/ (+ (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 x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 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 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/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 b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))))))) (+ (/ (pow a 2) (pow y-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 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 (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 (* (/ angle 180) (PI)) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (/ angle 180) #s(hole binary64 (* 1/180 angle)))
#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 (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 (/ (/ (+ (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 (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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (+ (* 1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))))))) (* b (sqrt 2)))) (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* b (sqrt 2)))) (* 1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* b (sqrt 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* 1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* 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/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (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 b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))))) (* 1/2 (/ (* (pow x-scale 2) (* (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* b (sqrt 2)))) (* 1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* -1 (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (- (* -1/2 (/ (* (pow a 2) (* (pow angle 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))))))) (* y-scale (sqrt 2)))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (- (* (pow angle 2) (- (* -1/2 (/ (* (pow a 2) (* (pow angle 2) (* b (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* y-scale (sqrt 2)))) (* 1/2 (/ (* (pow a 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* y-scale (sqrt 2)))))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (- (* (pow angle 2) (- (* (pow angle 2) (- (* -1/2 (/ (* (pow a 2) (* (pow angle 2) (* b (* (sqrt 8) (- (+ (* 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/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (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 b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))))) (* 1/2 (/ (* (pow x-scale 2) (* (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* y-scale (sqrt 2)))) (* 1/2 (/ (* (pow a 2) (* b (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* y-scale (sqrt 2)))))) (* 1/2 (/ (* (pow a 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* y-scale (sqrt 2)))))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (+ (* 1/2 (/ (* (pow a 2) (* (pow angle 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))))))) (* y-scale (sqrt 2)))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/2 (/ (* (pow a 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* y-scale (sqrt 2)))) (* 1/2 (/ (* (pow a 2) (* (pow angle 2) (* b (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* y-scale (sqrt 2)))))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/2 (/ (* (pow a 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* y-scale (sqrt 2)))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow a 2) (* b (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* y-scale (sqrt 2)))) (* 1/2 (/ (* (pow a 2) (* (pow angle 2) (* b (* (sqrt 8) (- (+ (* 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/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (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 b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))))) (* 1/2 (/ (* (pow x-scale 2) (* (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* y-scale (sqrt 2)))))))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (* 16 (/ (* (pow a 4) (pow b 6)) (* (pow x-scale 4) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (+ (* 8 (/ (* (pow a 4) (* (pow angle 2) (* (pow b 4) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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 x-scale 2) (pow y-scale 2)))) (* 16 (/ (* (pow a 4) (pow b 6)) (* (pow x-scale 4) (pow y-scale 2)))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (+ (* 16 (/ (* (pow a 4) (pow b 6)) (* (pow x-scale 4) (pow y-scale 2)))) (* (pow angle 2) (+ (* 8 (/ (* (pow a 4) (* (pow angle 2) (* (pow b 4) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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 x-scale 2) (pow y-scale 2)))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (+ (* 16 (/ (* (pow a 4) (pow b 6)) (* (pow x-scale 4) (pow y-scale 2)))) (* (pow angle 2) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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 x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* 8 (/ (* (pow a 4) (* (pow angle 2) (* (pow b 4) (+ (* 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/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (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 b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))))))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))) (* (pow x-scale 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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #s(hole binary64 (* 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) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #s(hole binary64 (+ (* 2 (/ (pow b 2) (pow x-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 x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))))
#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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #s(hole binary64 (+ (* 2 (/ (pow b 2) (pow x-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 x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 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 angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #s(hole binary64 (+ (* 2 (/ (pow b 2) (pow x-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 x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 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 angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 angle 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/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (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 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 b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))))))))))))
#s(approx (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))) #s(hole binary64 (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))) #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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))) #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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))) #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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (/ (/ (* (* (* 2 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* 1/90 (* angle (* (PI) (- (pow b 2) (pow a 2)))))))
#s(approx (* (* (* 2 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* 1/90 (* angle (* (PI) (- (pow b 2) (pow a 2)))))))
#s(approx (* (* 2 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (sin (* 1/180 (* angle (PI))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (cos (* 1/180 (* angle (PI))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 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 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 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 (sqrt (+ (* 2 (/ (pow (* 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 (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (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 (cos (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (pow x-scale 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (+ (/ (* (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)) (+ (/ (* (pow b 2) (pow (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 (cos (* 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)) (/ (* (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) #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 (sin (* (/ angle 180) (PI))) #s(hole binary64 (sin (* 1/180 (* angle (PI))))))
#s(approx (cos (* (/ angle 180) (PI))) #s(hole binary64 (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) #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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* -1 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (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 (cos (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (pow x-scale 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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #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))) (+ (/ (* (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)) (+ (/ (* (pow b 2) (pow (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 (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))) #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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (/ (/ (* (* (* 2 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* 2 (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/8 (* (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* 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 a 2) (pow (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 (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 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) (+ (* 1/8 (* (* y-scale (* (sqrt 8) (+ (* 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 a 2) (pow (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 (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 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) (+ (* 1/8 (* (* y-scale (* (sqrt 8) (+ (* 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 a 2) (pow (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 (/ 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) (+ (* 1/8 (* (* y-scale (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (* -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 (cos (* 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 (/ (* (+ (* 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 a 2) (pow (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 (cos (* 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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 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)))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* x-scale (* y-scale (sqrt 8))) #s(hole binary64 (* x-scale (* y-scale (sqrt 8)))))
#s(approx x-scale #s(hole binary64 x-scale))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* (/ 1 x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 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 (* x-scale x-scale) #s(hole binary64 (pow x-scale 2)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* (pow x-scale 2) y-scale)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (pow x-scale 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (- (* -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 (cos (* 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 (/ (* (+ (* 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 a 2) (pow (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 (cos (* 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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 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))))))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* (pow x-scale 2) y-scale)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (pow x-scale 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) y-scale) (sqrt (+ (* 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) y-scale) (sqrt (/ 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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) y-scale) (sqrt (+ (* 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) y-scale) (sqrt (/ 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (- (* -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 (cos (* 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 (/ (* (+ (* 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 a 2) (pow (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 (cos (* 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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 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))))))))))) y-scale) (sqrt (/ 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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 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 4) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (* (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 a 2) (pow (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 y-scale 2))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)))) (pow x-scale 4))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2))) (* (pow x-scale 2) (+ (* 4 (/ (* (pow a 4) (* (pow b 4) (* (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 y-scale 2) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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 a 2) (pow (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 y-scale 2)))))) (pow x-scale 4))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2))) (* (pow x-scale 2) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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 a 2) (pow (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 y-scale 2))) (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow b 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 y-scale 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 3)))) (* 4 (/ (* (pow a 4) (* (pow b 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) (* 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 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 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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (* 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (+ (* 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 a 2) (pow (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))))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (+ (* 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 a 2) (pow (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))))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (+ (* 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 a 2) (pow (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))))
#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 (/ (+ (* (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)))))) (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (+ (* 1/8 (* (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* 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 a 2) (pow (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 (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (+ (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 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) (+ (* 1/8 (* (* y-scale (* (sqrt 8) (+ (* 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 a 2) (pow (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 (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (+ (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 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) (+ (* 1/8 (* (* y-scale (* (sqrt 8) (+ (* 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 a 2) (pow (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 (/ 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) (+ (* 1/8 (* (* y-scale (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (* -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 (cos (* 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 (/ (* (+ (* 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 a 2) (pow (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 (cos (* 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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 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)))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* -1 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* (pow x-scale 2) y-scale)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (/ (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (/ (- (* (pow x-scale 2) (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (/ (- (* (pow x-scale 2) (- (* (pow x-scale 2) (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (- (* -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 (cos (* 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 (/ (* (+ (* 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 a 2) (pow (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 (cos (* 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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 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))))))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* (pow x-scale 2) y-scale)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (/ (+ (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) y-scale) (sqrt (/ 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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (/ (+ (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) y-scale) (sqrt (/ 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (- (* -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 (cos (* 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 (/ (* (+ (* 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 a 2) (pow (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 (cos (* 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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 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))))))))))) y-scale) (sqrt (/ 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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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 4) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (/ (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (* (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 a 2) (pow (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 y-scale 2))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)))) (pow x-scale 4))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (/ (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2))) (* (pow x-scale 2) (+ (* 4 (/ (* (pow a 4) (* (pow b 4) (* (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 y-scale 2) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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 a 2) (pow (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 y-scale 2)))))) (pow x-scale 4))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (/ (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2))) (* (pow x-scale 2) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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 a 2) (pow (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 y-scale 2))) (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow b 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 y-scale 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 3)))) (* 4 (/ (* (pow a 4) (* (pow b 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) (* 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 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 4))))
#s(approx (* (* x-scale x-scale) (* y-scale y-scale)) #s(hole binary64 (* (pow x-scale 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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-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) (+ (* 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 a 2) (pow (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))))
#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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-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) (+ (* 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 a 2) (pow (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))))
#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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-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) (+ (* 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 a 2) (pow (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))))
#s(approx (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))) #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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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) (+ (* 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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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) (+ (* 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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 4)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 6)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 4)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) x-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) x-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 6) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) x-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) x-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) x-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 6) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) x-scale)))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 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) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (pow y-scale 2)))) (pow x-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 4) (- (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 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))))))) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (pow y-scale 2))))) (pow x-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 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 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))) 3))))) (+ (* 4 (/ (* (pow a 4) (* (pow b 4) (- (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 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))))))) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (pow y-scale 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 y-scale 2))) (* 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 4)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 6)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 4)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* -1 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (/ (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) x-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (/ (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) x-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (/ (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 6) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) x-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) x-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) x-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 6) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) x-scale)))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (/ (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (pow y-scale 2)))) (pow x-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (/ (+ (* 4 (/ (* (pow a 4) (* (pow b 4) (- (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 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))))))) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (pow y-scale 2))))) (pow x-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow a 4) (* (pow b 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 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))) 3))))) (+ (* 4 (/ (* (pow a 4) (* (pow b 4) (- (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 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))))))) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (pow y-scale 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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #s(hole binary64 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #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)))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #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)))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #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)))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* 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 (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))) #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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))) #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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))) #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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 4)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 6)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 4)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* (/ 1 x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) x-scale))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) x-scale))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 6) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) x-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) x-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) x-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 6) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) x-scale))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* -1 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* -1 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 4)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* -1 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 6)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 4)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* -1 (/ (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) x-scale))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* -1 (/ (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) x-scale))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* -1 (/ (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 6) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) x-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* -1 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* -1 (/ (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) x-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* -1 (/ (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) x-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* -1 (/ (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 6) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) x-scale))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/8 (* (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* 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))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow y-scale 2) (+ (* 1/8 (* (* x-scale (* (sqrt 8) (+ (* 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)))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow y-scale 2) (+ (* 1/8 (* (* x-scale (* (sqrt 8) (+ (* 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)))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* 1/8 (* (* x-scale (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (* -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 (/ (* (+ (* 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)))) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (* y-scale (sqrt 8)) #s(hole binary64 (* y-scale (sqrt 8))))
#s(approx y-scale #s(hole binary64 y-scale))
#s(approx (* y-scale 4) #s(hole binary64 (* 4 y-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale (pow y-scale 2))) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (pow y-scale 2) (* (sqrt 8) (+ (* 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)))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow y-scale 2))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow y-scale 2))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (- (* -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 (/ (* (+ (* 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)))) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow y-scale 2))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale (pow y-scale 2))) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (pow y-scale 2) (* (sqrt 8) (+ (* 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)))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow y-scale 2))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow y-scale 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 2))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow y-scale 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (- (* -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 (/ (* (+ (* 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)))) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))) (pow y-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (pow y-scale 4))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (* (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 a 2) (pow (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 x-scale 2))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow x-scale 2)))) (pow y-scale 4))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow x-scale 2))) (* (pow y-scale 2) (+ (* 4 (/ (* (pow a 4) (* (pow b 4) (* (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 x-scale 2) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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)))))) (pow x-scale 2)))))) (pow y-scale 4))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow x-scale 2))) (* (pow y-scale 2) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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)))))) (pow x-scale 2))) (* (pow y-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow b 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 x-scale 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 3)))) (* 4 (/ (* (pow a 4) (* (pow b 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) (* 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 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 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (* 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (+ (* 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 a 2) (pow (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))))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (+ (* 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 a 2) (pow (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))))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (+ (* 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 a 2) (pow (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))))
#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 (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 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)))))) (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 (* y-scale y-scale) #s(hole binary64 (pow y-scale 2)))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (+ (* 1/8 (* (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* 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))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow y-scale 2) (+ (* 1/8 (* (* x-scale (* (sqrt 8) (+ (* 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)))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow y-scale 2) (+ (* 1/8 (* (* x-scale (* (sqrt 8) (+ (* 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)))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* 1/8 (* (* x-scale (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (* -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 (/ (* (+ (* 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)))) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* -1 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale (pow y-scale 2))) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (/ (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (+ (* 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)))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow y-scale 2))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (/ (- (* (pow y-scale 2) (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow y-scale 2))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (/ (- (* (pow y-scale 2) (- (* (pow y-scale 2) (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (- (* -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 (/ (* (+ (* 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)))) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow y-scale 2))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale (pow y-scale 2))) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (+ (* 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)))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow y-scale 2))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (/ (+ (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow y-scale 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 2))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (/ (+ (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow y-scale 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (- (* -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 (/ (* (+ (* 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)))) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))) (pow y-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (pow y-scale 4))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (/ (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (* (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 a 2) (pow (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 x-scale 2))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow x-scale 2)))) (pow y-scale 4))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (/ (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow x-scale 2))) (* (pow y-scale 2) (+ (* 4 (/ (* (pow a 4) (* (pow b 4) (* (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 x-scale 2) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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)))))) (pow x-scale 2)))))) (pow y-scale 4))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (/ (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow x-scale 2))) (* (pow y-scale 2) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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)))))) (pow x-scale 2))) (* (pow y-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow b 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 x-scale 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 3)))) (* 4 (/ (* (pow a 4) (* (pow b 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) (* 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 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 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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #s(hole binary64 (/ (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #s(hole binary64 (/ (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (* 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 a 2) (pow (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))))
#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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #s(hole binary64 (/ (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (* 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 a 2) (pow (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))))
#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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #s(hole binary64 (/ (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (* 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 a 2) (pow (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))))
#s(approx (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))) #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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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) (+ (* 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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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) (+ (* 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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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))))))))) (pow y-scale 4)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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))))))))) (pow y-scale 6)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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))))))))) (pow y-scale 4)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))) y-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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)))))))) y-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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)))))))))) (* x-scale (pow y-scale 6))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))))) y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))) y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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)))))))) y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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)))))))))) (* x-scale (pow y-scale 6))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))))) y-scale)))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 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)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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)))))) (pow x-scale 2)))) (pow y-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 4) (- (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 x-scale 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))))))) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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)))))) (pow x-scale 2))))) (pow y-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 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 x-scale 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))))) (+ (* 4 (/ (* (pow a 4) (* (pow b 4) (- (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 x-scale 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))))))) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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)))))) (pow x-scale 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 x-scale 2))) (* 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (* 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))) (+ (/ (* (pow a 2) (pow (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (* 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))) (+ (/ (* (pow a 2) (pow (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (* 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))) (+ (/ (* (pow a 2) (pow (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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))))))))) (pow y-scale 4)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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))))))))) (pow y-scale 6)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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))))))))) (pow y-scale 4)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* -1 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (/ (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))) y-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (/ (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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)))))))) y-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (/ (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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)))))))))) (* x-scale (pow y-scale 6))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))))) y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))) y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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)))))))) y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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)))))))))) (* x-scale (pow y-scale 6))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))))) y-scale)))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (/ (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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)))))) (pow x-scale 2)))) (pow y-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (/ (+ (* 4 (/ (* (pow a 4) (* (pow b 4) (- (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 x-scale 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))))))) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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)))))) (pow x-scale 2))))) (pow y-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow a 4) (* (pow b 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 x-scale 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))))) (+ (* 4 (/ (* (pow a 4) (* (pow b 4) (- (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 x-scale 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))))))) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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)))))) (pow x-scale 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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-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 (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #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)))))) (+ (* 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))) (+ (/ (* (pow a 2) (pow (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #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)))))) (+ (* 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))) (+ (/ (* (pow a 2) (pow (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #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)))))) (+ (* 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))) (+ (/ (* (pow a 2) (pow (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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))) #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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))) #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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))) #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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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))))))))) (pow y-scale 4)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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))))))))) (pow y-scale 6)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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))))))))) (pow y-scale 4)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))) y-scale))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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)))))))) y-scale))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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)))))))))) (* x-scale (pow y-scale 6))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))))) y-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))) y-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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)))))))) y-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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)))))))))) (* x-scale (pow y-scale 6))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))))) y-scale))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* -1 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* -1 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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))))))))) (pow y-scale 4)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* -1 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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))))))))) (pow y-scale 6)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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))))))))) (pow y-scale 4)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* -1 (/ (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))) y-scale))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* -1 (/ (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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)))))))) y-scale))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* -1 (/ (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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)))))))))) (* x-scale (pow y-scale 6))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))))) y-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* -1 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* -1 (/ (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))) y-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* -1 (/ (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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)))))))) y-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* -1 (/ (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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)))))))))) (* x-scale (pow y-scale 6))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))))) y-scale))))
Calls

15 calls:

TimeVariablePointExpression
103.0ms
a
@inf
((/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (* y-scale (sqrt 8)) y-scale (sqrt 8) 8 (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* a (sin (* 1/180 (* angle (PI))))) a (sin (* 1/180 (* angle (PI)))) (* 1/180 (* angle (PI))) 1/180 (* angle (PI)) angle (PI) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* b (cos (* 1/180 (* angle (PI))))) b (cos (* 1/180 (* angle (PI)))) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* 1/4 (* b (* y-scale 4))) (* b (* y-scale 4)) (* y-scale 4) 4 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))))) -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))))) (* x-scale (* y-scale (sqrt 8))) x-scale (sqrt (+ (* 2 (/ (pow (* 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)) (* x-scale x-scale) (* 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)) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))))) (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))) (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2)) (* 4 (* (* b a) (* b (neg a)))) (* (* b a) (* b (neg a))) (* b a) (* b (neg a)) (neg a) (pow (* x-scale y-scale) 2) (* x-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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (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)))) (sin (* (/ angle 180) (PI))) (* (/ angle 180) (PI)) (/ angle 180) 180 (pow (* b (cos (* (/ angle 180) (PI)))) 2) (* b (cos (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI))) (/ (/ (+ (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)))) (pow (* b (sin (* (/ angle 180) (PI)))) 2) (* b (sin (* (/ 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))) (/ (* b b) (* x-scale x-scale)) (* b b) (/ (* a a) (* y-scale y-scale)) (* a a) (* y-scale y-scale) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale))) (* (* x-scale x-scale) (* 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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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)) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (* 2 (- (* b b) (* a a))) (- (* b b) (* a a)))
51.0ms
b
@0
((/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (* y-scale (sqrt 8)) y-scale (sqrt 8) 8 (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* a (sin (* 1/180 (* angle (PI))))) a (sin (* 1/180 (* angle (PI)))) (* 1/180 (* angle (PI))) 1/180 (* angle (PI)) angle (PI) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* b (cos (* 1/180 (* angle (PI))))) b (cos (* 1/180 (* angle (PI)))) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* 1/4 (* b (* y-scale 4))) (* b (* y-scale 4)) (* y-scale 4) 4 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))))) -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))))) (* x-scale (* y-scale (sqrt 8))) x-scale (sqrt (+ (* 2 (/ (pow (* 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)) (* x-scale x-scale) (* 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)) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))))) (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))) (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2)) (* 4 (* (* b a) (* b (neg a)))) (* (* b a) (* b (neg a))) (* b a) (* b (neg a)) (neg a) (pow (* x-scale y-scale) 2) (* x-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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (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)))) (sin (* (/ angle 180) (PI))) (* (/ angle 180) (PI)) (/ angle 180) 180 (pow (* b (cos (* (/ angle 180) (PI)))) 2) (* b (cos (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI))) (/ (/ (+ (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)))) (pow (* b (sin (* (/ angle 180) (PI)))) 2) (* b (sin (* (/ 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))) (/ (* b b) (* x-scale x-scale)) (* b b) (/ (* a a) (* y-scale y-scale)) (* a a) (* y-scale y-scale) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale))) (* (* x-scale x-scale) (* 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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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)) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (* 2 (- (* b b) (* a a))) (- (* b b) (* a a)))
47.0ms
y-scale
@-inf
((/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (* y-scale (sqrt 8)) y-scale (sqrt 8) 8 (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* a (sin (* 1/180 (* angle (PI))))) a (sin (* 1/180 (* angle (PI)))) (* 1/180 (* angle (PI))) 1/180 (* angle (PI)) angle (PI) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* b (cos (* 1/180 (* angle (PI))))) b (cos (* 1/180 (* angle (PI)))) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* 1/4 (* b (* y-scale 4))) (* b (* y-scale 4)) (* y-scale 4) 4 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))))) -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))))) (* x-scale (* y-scale (sqrt 8))) x-scale (sqrt (+ (* 2 (/ (pow (* 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)) (* x-scale x-scale) (* 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)) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))))) (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))) (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2)) (* 4 (* (* b a) (* b (neg a)))) (* (* b a) (* b (neg a))) (* b a) (* b (neg a)) (neg a) (pow (* x-scale y-scale) 2) (* x-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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (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)))) (sin (* (/ angle 180) (PI))) (* (/ angle 180) (PI)) (/ angle 180) 180 (pow (* b (cos (* (/ angle 180) (PI)))) 2) (* b (cos (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI))) (/ (/ (+ (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)))) (pow (* b (sin (* (/ angle 180) (PI)))) 2) (* b (sin (* (/ 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))) (/ (* b b) (* x-scale x-scale)) (* b b) (/ (* a a) (* y-scale y-scale)) (* a a) (* y-scale y-scale) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale))) (* (* x-scale x-scale) (* 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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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)) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (* 2 (- (* b b) (* a a))) (- (* b b) (* a a)))
45.0ms
b
@inf
((/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (* y-scale (sqrt 8)) y-scale (sqrt 8) 8 (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* a (sin (* 1/180 (* angle (PI))))) a (sin (* 1/180 (* angle (PI)))) (* 1/180 (* angle (PI))) 1/180 (* angle (PI)) angle (PI) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* b (cos (* 1/180 (* angle (PI))))) b (cos (* 1/180 (* angle (PI)))) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* 1/4 (* b (* y-scale 4))) (* b (* y-scale 4)) (* y-scale 4) 4 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))))) -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))))) (* x-scale (* y-scale (sqrt 8))) x-scale (sqrt (+ (* 2 (/ (pow (* 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)) (* x-scale x-scale) (* 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)) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))))) (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))) (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2)) (* 4 (* (* b a) (* b (neg a)))) (* (* b a) (* b (neg a))) (* b a) (* b (neg a)) (neg a) (pow (* x-scale y-scale) 2) (* x-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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (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)))) (sin (* (/ angle 180) (PI))) (* (/ angle 180) (PI)) (/ angle 180) 180 (pow (* b (cos (* (/ angle 180) (PI)))) 2) (* b (cos (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI))) (/ (/ (+ (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)))) (pow (* b (sin (* (/ angle 180) (PI)))) 2) (* b (sin (* (/ 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))) (/ (* b b) (* x-scale x-scale)) (* b b) (/ (* a a) (* y-scale y-scale)) (* a a) (* y-scale y-scale) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale))) (* (* x-scale x-scale) (* 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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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)) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (* 2 (- (* b b) (* a a))) (- (* b b) (* a a)))
43.0ms
a
@0
((/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (* y-scale (sqrt 8)) y-scale (sqrt 8) 8 (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* a (sin (* 1/180 (* angle (PI))))) a (sin (* 1/180 (* angle (PI)))) (* 1/180 (* angle (PI))) 1/180 (* angle (PI)) angle (PI) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* b (cos (* 1/180 (* angle (PI))))) b (cos (* 1/180 (* angle (PI)))) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* 1/4 (* b (* y-scale 4))) (* b (* y-scale 4)) (* y-scale 4) 4 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))))) -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))))) (* x-scale (* y-scale (sqrt 8))) x-scale (sqrt (+ (* 2 (/ (pow (* 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)) (* x-scale x-scale) (* 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)) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))))) (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))) (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2)) (* 4 (* (* b a) (* b (neg a)))) (* (* b a) (* b (neg a))) (* b a) (* b (neg a)) (neg a) (pow (* x-scale y-scale) 2) (* x-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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (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)))) (sin (* (/ angle 180) (PI))) (* (/ angle 180) (PI)) (/ angle 180) 180 (pow (* b (cos (* (/ angle 180) (PI)))) 2) (* b (cos (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI))) (/ (/ (+ (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)))) (pow (* b (sin (* (/ angle 180) (PI)))) 2) (* b (sin (* (/ 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))) (/ (* b b) (* x-scale x-scale)) (* b b) (/ (* a a) (* y-scale y-scale)) (* a a) (* y-scale y-scale) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale))) (* (* x-scale x-scale) (* 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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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)) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (* 2 (- (* b b) (* a a))) (- (* b b) (* a a)))

rewrite2.1s (9.3%)

Memory
-45.4MiB live, 1 605.1MiB allocated; 1.4s collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
04466476396
04656435182
012934428795
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
1 118 → 1 216
Calls
Call 1
Inputs
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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)))))))
#s(literal 1/4 binary64)
(*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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 y-scale (sqrt.f64 #s(literal 8 binary64)))
y-scale
(sqrt.f64 #s(literal 8 binary64))
#s(literal 8 binary64)
(sqrt.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)))))
(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))))
#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 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
a
(sin.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 #s(literal 2 binary64) (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 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
b
(cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64)))))
(*.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64))))
(*.f64 b (*.f64 y-scale #s(literal 4 binary64)))
(*.f64 y-scale #s(literal 4 binary64))
#s(literal 4 binary64)
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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)))))))
#s(literal -1/4 binary64)
(*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))
x-scale
(sqrt.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)))))
(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))
(*.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 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 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
(neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))))))))
(sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))
(*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
(/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))
(*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))
(*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))
(*.f64 b a)
(*.f64 b (neg.f64 a))
(neg.f64 a)
(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))
(*.f64 x-scale y-scale)
(+.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(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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))))
(sin.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))
#s(literal 180 binary64)
(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))))
(cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(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))))
(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))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 b b) (*.f64 x-scale x-scale))
(*.f64 b b)
(/.f64 (*.f64 a a) (*.f64 y-scale y-scale))
(*.f64 a a)
(*.f64 y-scale y-scale)
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))
(neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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))))))
(sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))
(*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))
(/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))
(*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))
(+.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)) (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)))
(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 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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 #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))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (* (pow a 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (* (pow a 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (pow a 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* 1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow a 2) (+ (* -1/8 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/4 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow a 2) (+ (* 1/4 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (* (pow a 2) (+ (* -1/8 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/8 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 5) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow a 2) (+ (* (pow a 2) (+ (* -1/2 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 5) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) (* (pow a 2) (+ (* -1/2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) (* (pow a 2) (+ (* (pow a 2) (+ (* -1/2 (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 6)) (* (pow b 5) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) #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))))))
#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 a #s(hole binary64 a))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* -1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow a 2) (+ (* -1/4 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (* 1/8 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow a 2) (+ (* -1/4 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (* (pow a 2) (+ (* -1/8 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 5) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (* 1/8 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow a 2) (+ (* (pow a 2) (+ (* -1/2 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 5) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (/ (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale)))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (+ (/ (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* b (* x-scale (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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) (+ (* -1/2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 3) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* b (* x-scale (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) (/ (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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) (+ (* (pow a 2) (+ (* -1/2 (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (* (pow b 3) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (* 1/2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 6)) (* (pow b 5) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5)))))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* b (* x-scale (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) (/ (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) 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)))) #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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (* (pow a 2) (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (pow a 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* (pow b 4) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow b 4) (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 4) (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow a 2) (+ (* 4 (* (/ (* (pow a 2) (* (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 (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 x-scale 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)))))) (* 8 (/ (* (pow b 4) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 4) (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow a 2) (+ (* 8 (/ (* (pow b 4) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow a 2) (+ (* -2 (* (/ (* (pow a 2) (* (pow b 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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 x-scale 2) (pow y-scale 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))))) (* 4 (* (/ (* (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 (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 x-scale 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 (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) #s(hole binary64 (* 8 (/ (* (pow a 4) (pow b 4)) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -8 (/ (* (pow a 2) (pow b 2)) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* -4 (/ (* (pow a 2) (pow b 2)) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* 4 (* (* b a) (* b (neg a)))) #s(hole binary64 (* -4 (* (pow a 2) (pow b 2)))))
#s(approx (* (* b a) (* b (neg a))) #s(hole binary64 (* -1 (* (pow a 2) (pow b 2)))))
#s(approx (* b a) #s(hole binary64 (* a b)))
#s(approx (* b (neg a)) #s(hole binary64 (* -1 (* a b))))
#s(approx (neg a) #s(hole binary64 (* -1 a)))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (pow (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (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 (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (/ (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 (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))))))))) (+ (/ (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 (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 b 2) (pow (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 (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 (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) #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 (/ (/ (+ (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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (/ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (+ (* 1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (* (pow a 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (* (pow a 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (pow a 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* -1 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* (pow a 2) (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* (pow a 2) (- (* (pow a 2) (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* (pow a 2) (- (* (pow a 2) (- (* (pow a 2) (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* (pow a 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* (pow a 2) (+ (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* (pow a 2) (+ (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (pow a 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (* (pow a 4) (+ (* 8 (/ (* (pow a 2) (* (pow b 4) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow b 4) (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (* (pow a 4) (+ (* 8 (/ (* (pow b 4) (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow a 2) (+ (* 4 (* (/ (* (pow a 2) (* (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 (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 x-scale 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)))))) (* 8 (/ (* (pow b 4) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (* (pow a 4) (+ (* 8 (/ (* (pow b 4) (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow a 2) (+ (* 8 (/ (* (pow b 4) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow a 2) (+ (* -2 (* (/ (* (pow a 2) (* (pow b 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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 x-scale 2) (pow y-scale 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))))) (* 4 (* (/ (* (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 (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 x-scale 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 (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) #s(hole binary64 (* 8 (/ (* (pow a 4) (pow b 4)) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* -8 (/ (* (pow a 2) (pow b 2)) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale))) #s(hole binary64 (* -4 (/ (* (pow a 2) (pow b 2)) (* (pow x-scale 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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-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)) (/ (* (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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-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 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 (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 (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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-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 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)))))) (+ (/ (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 (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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-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 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))))))))) (+ (/ (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 (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 (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-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)))))
#s(approx (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-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))) (* 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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-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 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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-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 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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (/ (/ (* (* (* 2 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* 2 (* (pow b 2) (sin (* 1/180 (* angle (PI))))))))
#s(approx (* (* 2 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) #s(hole binary64 (* 2 (pow b 2))))
#s(approx (* 2 (- (* b b) (* a a))) #s(hole binary64 (+ (* -2 (pow a 2)) (* 2 (pow b 2)))))
#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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 4)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 6)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 4)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* 1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (+ (* -1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (+ (* -1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/8 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* a (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* a (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (pow (cos (* 1/180 (* angle (PI)))) 6)) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (* (pow a 2) (+ (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow a 2))) (* 2 (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (* -1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* -1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (* -1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (* 1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (* -1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (+ (* -1/8 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (* 1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale)))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (/ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* x-scale (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (+ (/ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* x-scale (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (+ (* 1/2 (/ (* (pow b 6) (pow (cos (* 1/180 (* angle (PI)))) 6)) (* (pow a 6) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5)))))) (+ (/ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* x-scale (* (sin (* 1/180 (* angle (PI)))) (sqrt 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 3) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 6) (* (pow b 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 6) (+ (* 8 (/ (* (pow b 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow b 4) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow a 2) (* (pow x-scale 2) (pow y-scale 2)))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 6) (+ (* 4 (* (/ (* (pow b 4) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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) (* (pow x-scale 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)))))) (+ (* 8 (/ (* (pow b 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow b 4) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow a 2) (* (pow x-scale 2) (pow y-scale 2))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 6) (+ (* -2 (* (/ (* (pow b 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) (* (pow x-scale 2) (pow y-scale 2)))) (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))))) (+ (* 4 (* (/ (* (pow b 4) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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) (* (pow x-scale 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)))))) (+ (* 8 (/ (* (pow b 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow b 4) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow a 2) (* (pow x-scale 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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))) (+ (/ (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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)))))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 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)) (/ (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) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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)))))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 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)) (/ (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) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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)))))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 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)) (/ (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) (/ (/ (+ (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 (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) (/ (/ (+ (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 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 (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 (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 (/ (/ (+ (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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 4)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 6)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 4)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* -1 (* (/ (* (pow a 3) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* (pow a 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* (pow a 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* (pow a 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* (/ (* (pow a 3) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* (pow a 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* (pow a 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* (pow a 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (* 8 (/ (* (pow a 6) (* (pow b 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (* (pow a 6) (+ (* 8 (/ (* (pow b 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow b 4) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow a 2) (* (pow x-scale 2) (pow y-scale 2)))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (* (pow a 6) (+ (* 4 (* (/ (* (pow b 4) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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) (* (pow x-scale 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)))))) (+ (* 8 (/ (* (pow b 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow b 4) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow a 2) (* (pow x-scale 2) (pow y-scale 2))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (* (pow a 6) (+ (* -2 (* (/ (* (pow b 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) (* (pow x-scale 2) (pow y-scale 2)))) (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))))) (+ (* 4 (* (/ (* (pow b 4) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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) (* (pow x-scale 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)))))) (+ (* 8 (/ (* (pow b 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow b 4) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow a 2) (* (pow x-scale 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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #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))) (+ (/ (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #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)))))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 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)) (/ (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) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #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)))))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 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)) (/ (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) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #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)))))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))) #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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))) #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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))) #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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))) #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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (/ (/ (* (* (* 2 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* -2 (* (pow a 2) (sin (* 1/180 (* angle (PI))))))))
#s(approx (* (* 2 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) #s(hole binary64 (* -2 (pow a 2))))
#s(approx (* 2 (- (* b b) (* a a))) #s(hole binary64 (* (pow a 2) (- (* 2 (/ (pow b 2) (pow a 2))) 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 4)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 6)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 4)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (+ (* -1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (+ (* -1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/8 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* a (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* a (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (pow (cos (* 1/180 (* angle (PI)))) 6)) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* 1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (* -1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* -1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (* -1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (* 1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (* -1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (+ (* -1/8 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (* 1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (/ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* x-scale (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (+ (/ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* x-scale (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (+ (* 1/2 (/ (* (pow b 6) (pow (cos (* 1/180 (* angle (PI)))) 6)) (* (pow a 6) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5)))))) (+ (/ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* x-scale (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow a 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow a 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow a 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 3) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow a 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow a 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow a 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* -1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* -1 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* -1 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 4)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* -1 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 6)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 4)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* (/ (* (pow a 3) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* -1 (* (pow a 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* -1 (* (pow a 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* -1 (* (pow a 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* -1 (* (/ (* (pow a 3) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* -1 (* (pow a 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* -1 (* (pow a 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* -1 (* (pow a 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 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) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))) (sqrt (/ 1 (+ (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 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) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (sqrt (/ 1 (+ (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 (cos (* 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) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))) (sqrt (/ 1 (+ (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 (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 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow b 2) (+ (* -1/8 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/4 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow b 2) (+ (* 1/4 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (* (pow b 2) (+ (* -1/8 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/8 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 5) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow b 2) (+ (* -1/2 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow b 2) (+ (* (pow b 2) (+ (* -1/2 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 5) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (* (pow b 2) (+ (* -1/2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (* (pow b 2) (+ (* (pow b 2) (+ (* -1/2 (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 6)) (* (pow a 5) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 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 b #s(hole binary64 b))
#s(approx (* 1/4 (* b (* y-scale 4))) #s(hole binary64 (* b y-scale)))
#s(approx (* b (* y-scale 4)) #s(hole binary64 (* 4 (* b y-scale))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* -1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow b 2) (+ (* -1/4 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (* 1/8 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow b 2) (+ (* -1/4 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (* (pow b 2) (+ (* -1/8 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 5) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (* 1/8 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow b 2) (+ (* -1/2 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow b 2) (+ (* (pow b 2) (+ (* -1/2 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 5) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (+ (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* a (* x-scale (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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) (+ (* -1/2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 3) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* a (* x-scale (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))) (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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) (+ (* (pow b 2) (+ (* -1/2 (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (* (pow a 3) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (* 1/2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 6)) (* (pow a 5) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5)))))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* a (* x-scale (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))) (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale))))
#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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (* (pow b 2) (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 4) (* (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 (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow b 2) (+ (* 4 (* (/ (* (pow a 4) (* (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))))))) (* (pow x-scale 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)))))) (* 8 (/ (* (pow a 4) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow b 2) (+ (* 8 (/ (* (pow a 4) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow b 2) (+ (* -2 (* (/ (* (pow a 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)))))))) (* (pow x-scale 2) (pow y-scale 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))))) (* 4 (* (/ (* (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 (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 x-scale 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 (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (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 (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (/ (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 (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))))))))) (+ (/ (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 (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (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 (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 (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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (/ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (+ (* 1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 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) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))) (sqrt (/ 1 (+ (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 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) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (sqrt (/ 1 (+ (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 (cos (* 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) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))) (sqrt (/ 1 (+ (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* -1 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* (pow b 2) (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* (pow b 2) (- (* (pow b 2) (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* (pow b 2) (- (* (pow b 2) (- (* (pow b 2) (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* (pow b 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* (pow b 2) (+ (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* (pow b 2) (+ (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (* (pow b 4) (+ (* 8 (/ (* (pow a 4) (* (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 (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (* (pow b 4) (+ (* 8 (/ (* (pow a 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow b 2) (+ (* 4 (* (/ (* (pow a 4) (* (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))))))) (* (pow x-scale 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)))))) (* 8 (/ (* (pow a 4) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (* (pow b 4) (+ (* 8 (/ (* (pow a 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow b 2) (+ (* 8 (/ (* (pow a 4) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow b 2) (+ (* -2 (* (/ (* (pow a 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)))))))) (* (pow x-scale 2) (pow y-scale 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))))) (* 4 (* (/ (* (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 (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 x-scale 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 (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #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 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #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 (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 (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #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)))))) (+ (/ (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 (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #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))))))))) (+ (/ (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 (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 (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))) #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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))) #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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))) #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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))) #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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (- (* b b) (* a a)) #s(hole binary64 (- (pow b 2) (pow a 2))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 4)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 6)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 4)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (+ (* 1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (+ (* -1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (+ (* -1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/8 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* 1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* b (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* b (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (pow (sin (* 1/180 (* angle (PI)))) 6)) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (* (pow b 2) (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow b 2))) (* 2 (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (* -1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* -1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (* -1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (* 1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (* -1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (+ (* -1/8 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (* 1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (/ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (+ (/ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (+ (* 1/2 (/ (* (pow a 6) (pow (sin (* 1/180 (* angle (PI)))) 6)) (* (pow b 6) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5)))))) (+ (/ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (sqrt 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 3) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 6) (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 6) (+ (* 8 (/ (* (pow a 4) (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (+ (* 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 (cos (* 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 x-scale 2) (pow y-scale 2)))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 6) (+ (* 4 (* (/ (* (pow a 4) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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) (* (pow x-scale 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)))))) (+ (* 8 (/ (* (pow a 4) (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (+ (* 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 (cos (* 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 x-scale 2) (pow y-scale 2))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 6) (+ (* -2 (* (/ (* (pow a 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) (* (pow x-scale 2) (pow y-scale 2)))) (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))))) (+ (* 4 (* (/ (* (pow a 4) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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) (* (pow x-scale 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)))))) (+ (* 8 (/ (* (pow a 4) (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (+ (* 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 (cos (* 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 x-scale 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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))) (+ (/ (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 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)) (/ (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 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)) (/ (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 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)) (/ (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 (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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 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)) (/ (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) #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 (/ (/ (+ (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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* 1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 4)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 6)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 4)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* -1 (* (/ (* (pow a 2) (* (pow b 3) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* (pow b 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* (pow b 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* (pow b 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* (/ (* (pow a 2) (* (pow b 3) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* (pow b 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* (pow b 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* (pow b 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (* 8 (/ (* (pow a 4) (* (pow b 6) (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (* (pow b 6) (+ (* 8 (/ (* (pow a 4) (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (+ (* 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 (cos (* 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 x-scale 2) (pow y-scale 2)))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (* (pow b 6) (+ (* 4 (* (/ (* (pow a 4) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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) (* (pow x-scale 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)))))) (+ (* 8 (/ (* (pow a 4) (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (+ (* 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 (cos (* 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 x-scale 2) (pow y-scale 2))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (* (pow b 6) (+ (* -2 (* (/ (* (pow a 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) (* (pow x-scale 2) (pow y-scale 2)))) (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))))) (+ (* 4 (* (/ (* (pow a 4) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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) (* (pow x-scale 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)))))) (+ (* 8 (/ (* (pow a 4) (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (+ (* 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 (cos (* 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 x-scale 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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-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)) (/ (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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-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))) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 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)) (/ (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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-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))) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 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)) (/ (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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-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))) (+ (* -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)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-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))))))
#s(approx (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-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))) (* 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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-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))) (+ (* 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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-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))) (+ (* -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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (/ (/ (* (* (* 2 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) #s(hole binary64 (* (pow b 2) (+ 2 (* -2 (/ (pow a 2) (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 4)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 6)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 4)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (+ (* 1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (+ (* -1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (+ (* -1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/8 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* 1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* b (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* b (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (pow (sin (* 1/180 (* angle (PI)))) 6)) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* 1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (* -1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* -1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (* -1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (* 1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (* -1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (+ (* -1/8 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (* 1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (/ (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (/ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (+ (/ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (+ (* 1/2 (/ (* (pow a 6) (pow (sin (* 1/180 (* angle (PI)))) 6)) (* (pow b 6) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5)))))) (+ (/ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow b 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow b 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow b 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 3) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow b 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow b 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow b 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* -1 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* -1 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 4)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* -1 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 6)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 4)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* (/ (* (pow a 2) (* (pow b 3) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* -1 (* (pow b 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* -1 (* (pow b 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* -1 (* (pow b 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* -1 (* (/ (* (pow a 2) (* (pow b 3) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* -1 (* (pow b 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* -1 (* (pow b 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* -1 (* (pow b 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))))))) (* b (sqrt 2)))) (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* b (sqrt 2)))) (* 1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* b (sqrt 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* 1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* 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/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (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 b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))))) (* 1/2 (/ (* (pow x-scale 2) (* (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* b (sqrt 2)))) (* 1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/8 (/ (* (pow angle 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2))))))) (* b (sqrt 2)))) (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* y-scale (* (sqrt 8) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))))) (* b (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* y-scale (* (sqrt 8) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* y-scale (* (sqrt 8) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* 1/8 (/ (* y-scale (* (sqrt 8) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2))))))) (* b (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* y-scale (* (sqrt 8) (- (+ (* 2 (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* 2 (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))))) (* 1/2 (/ (* (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2)))))) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* b (* y-scale (* (sqrt 2) (sqrt 8))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* 1/2 (/ (* (pow angle 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2))))))) (* b (sqrt 2)))) (* b (* y-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* b (* y-scale (* (sqrt 2) (sqrt 8)))) (* (pow angle 2) (+ (* 1/2 (/ (* y-scale (* (sqrt 8) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))))) (* b (sqrt 2)))) (* 1/2 (/ (* (pow angle 2) (* y-scale (* (sqrt 8) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* b (* y-scale (* (sqrt 2) (sqrt 8)))) (* (pow angle 2) (+ (* 1/2 (/ (* y-scale (* (sqrt 8) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* 1/2 (/ (* y-scale (* (sqrt 8) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2))))))) (* b (sqrt 2)))) (* 1/2 (/ (* (pow angle 2) (* y-scale (* (sqrt 8) (- (+ (* 2 (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* 2 (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))))) (* 1/2 (/ (* (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2)))))) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* b (sqrt 2))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* 1/2 (/ (* (pow angle 2) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2))))) (* b (sqrt 2)))) (* b (sqrt 2)))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* b (sqrt 2)) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2)))))) (* b (sqrt 2)))) (* 1/2 (/ (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) (* b (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* b (sqrt 2)) (* (pow angle 2) (+ (* 1/2 (/ (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (- (+ (* 2 (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* 2 (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))))) (* 1/2 (/ (* (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2)))))) (* (pow b 2) (pow (sqrt 2) 2)))))) (* b (sqrt 2)))) (* 1/2 (/ (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2))))) (* b (sqrt 2)))))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (* 2 (pow b 2))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (+ (* 2 (pow b 2)) (* (pow angle 2) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (+ (* 2 (pow b 2)) (* (pow angle 2) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (+ (* 1/16200 (* (pow a 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (+ (* 2 (pow b 2)) (* (pow angle 2) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (+ (* 1/16200 (* (pow a 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (+ (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (* (pow angle 2) (+ (* 2 (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* 2 (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))))))))))))))
#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 (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 (* angle (PI)) #s(hole binary64 (* angle (PI))))
#s(approx angle #s(hole binary64 angle))
#s(approx (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (* 2 (pow b 2))))
#s(approx (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (+ (* -1/16200 (* (pow angle 2) (* (pow b 2) (pow (PI) 2)))) (* 2 (pow b 2)))))
#s(approx (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (+ (* 2 (pow b 2)) (* (pow angle 2) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 2 (* (pow angle 2) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))))))
#s(approx (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (+ (* 2 (pow b 2)) (* (pow angle 2) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* 2 (* (pow angle 2) (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))))))
#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 (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/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* -1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))))) (* b (sqrt 2)))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* -1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* -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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* b (sqrt 2)))) (* -1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))))) (* b (sqrt 2)))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* -1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* -1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* 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)))) (* 1/2 (/ (* (pow x-scale 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)))) (- (+ (* -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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* b (sqrt 2)))) (* -1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* -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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (* y-scale (* (sqrt 2) (sqrt 8))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* 1/2 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))))) (* b (sqrt 2)))) (* b (* y-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* b (* y-scale (* (sqrt 2) (sqrt 8)))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* -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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* b (sqrt 2)))) (* 1/2 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))))) (* b (sqrt 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* b (* y-scale (* (sqrt 2) (sqrt 8)))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* 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)))) (* 1/2 (/ (* (pow x-scale 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)))) (- (+ (* -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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* b (sqrt 2)))) (* 1/2 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* -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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (/ (* b (sqrt 2)) x-scale)))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (+ (* 1/2 (/ (* (pow angle 2) (* x-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)))))) (* b (sqrt 2)))) (/ (* b (sqrt 2)) x-scale))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 angle 2) (+ (* 1/2 (/ (* x-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))))) (* b (sqrt 2)))) (* 1/2 (/ (* (pow angle 2) (* x-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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* b (sqrt 2)))))) (/ (* b (sqrt 2)) x-scale))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 angle 2) (+ (* 1/2 (/ (* x-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))))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* 1/2 (/ (* x-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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2)))))) (* b (sqrt 2)))) (* 1/2 (/ (* (pow angle 2) (* x-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)))) (* 1/2 (/ (* (pow x-scale 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)))) (- (+ (* -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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* (pow b 2) (pow (sqrt 2) 2))))))) (* b (sqrt 2)))))))) (/ (* b (sqrt 2)) 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)))) #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 (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 angle 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))))))) (* y-scale (sqrt 2)))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* (pow angle 2) (* b (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* y-scale (sqrt 2)))) (* 1/2 (/ (* (pow a 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* y-scale (sqrt 2)))))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (* (pow angle 2) (- (* -1/2 (/ (* (pow a 2) (* (pow angle 2) (* b (* (sqrt 8) (- (+ (* 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/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (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 b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))))) (* 1/2 (/ (* (pow x-scale 2) (* (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* y-scale (sqrt 2)))) (* 1/2 (/ (* (pow a 2) (* b (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* y-scale (sqrt 2)))))) (* 1/2 (/ (* (pow a 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* y-scale (sqrt 2)))))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 angle 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))))))) (* y-scale (sqrt 2)))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* y-scale (sqrt 2)))) (* 1/2 (/ (* (pow a 2) (* (pow angle 2) (* b (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* y-scale (sqrt 2)))))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* y-scale (sqrt 2)))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow a 2) (* b (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* y-scale (sqrt 2)))) (* 1/2 (/ (* (pow a 2) (* (pow angle 2) (* b (* (sqrt 8) (- (+ (* 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/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (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 b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))))) (* 1/2 (/ (* (pow x-scale 2) (* (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* y-scale (sqrt 2)))))))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))) #s(hole binary64 (* 16 (/ (* (pow a 4) (pow b 6)) (* (pow x-scale 4) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow angle 2) (* (pow b 4) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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 x-scale 2) (pow y-scale 2)))) (* 16 (/ (* (pow a 4) (pow b 6)) (* (pow x-scale 4) (pow y-scale 2)))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))) #s(hole binary64 (+ (* 16 (/ (* (pow a 4) (pow b 6)) (* (pow x-scale 4) (pow y-scale 2)))) (* (pow angle 2) (+ (* 8 (/ (* (pow a 4) (* (pow angle 2) (* (pow b 4) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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 x-scale 2) (pow y-scale 2)))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))) #s(hole binary64 (+ (* 16 (/ (* (pow a 4) (pow b 6)) (* (pow x-scale 4) (pow y-scale 2)))) (* (pow angle 2) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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 x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* 8 (/ (* (pow a 4) (* (pow angle 2) (* (pow b 4) (+ (* 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/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (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 b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))))))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))) (* (pow x-scale 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 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) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (pow x-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 x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (pow x-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 x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 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 angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (pow x-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 x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 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 angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 angle 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/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (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 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 b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (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 (+ (/ (pow a 2) (pow y-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) (/ (/ (+ (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 x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))))) (+ (/ (pow a 2) (pow y-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) (/ (/ (+ (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 x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (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) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))))))) (+ (/ (pow a 2) (pow y-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) (/ (/ (+ (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 x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 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 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/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 b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))))))) (+ (/ (pow a 2) (pow y-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 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 (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 (* (/ angle 180) (PI)) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (/ angle 180) #s(hole binary64 (* 1/180 angle)))
#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 (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 (/ (/ (+ (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 (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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (+ (* 1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))))))) (* b (sqrt 2)))) (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* b (sqrt 2)))) (* 1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* b (sqrt 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* 1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* 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/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (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 b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))))) (* 1/2 (/ (* (pow x-scale 2) (* (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* b (sqrt 2)))) (* 1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* -1 (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (- (* -1/2 (/ (* (pow a 2) (* (pow angle 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))))))) (* y-scale (sqrt 2)))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (- (* (pow angle 2) (- (* -1/2 (/ (* (pow a 2) (* (pow angle 2) (* b (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* y-scale (sqrt 2)))) (* 1/2 (/ (* (pow a 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* y-scale (sqrt 2)))))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (- (* (pow angle 2) (- (* (pow angle 2) (- (* -1/2 (/ (* (pow a 2) (* (pow angle 2) (* b (* (sqrt 8) (- (+ (* 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/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (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 b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))))) (* 1/2 (/ (* (pow x-scale 2) (* (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* y-scale (sqrt 2)))) (* 1/2 (/ (* (pow a 2) (* b (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* y-scale (sqrt 2)))))) (* 1/2 (/ (* (pow a 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* y-scale (sqrt 2)))))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (+ (* 1/2 (/ (* (pow a 2) (* (pow angle 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))))))) (* y-scale (sqrt 2)))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/2 (/ (* (pow a 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* y-scale (sqrt 2)))) (* 1/2 (/ (* (pow a 2) (* (pow angle 2) (* b (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* y-scale (sqrt 2)))))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/2 (/ (* (pow a 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* y-scale (sqrt 2)))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow a 2) (* b (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* y-scale (sqrt 2)))) (* 1/2 (/ (* (pow a 2) (* (pow angle 2) (* b (* (sqrt 8) (- (+ (* 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/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (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 b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))))) (* 1/2 (/ (* (pow x-scale 2) (* (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* y-scale (sqrt 2)))))))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (* 16 (/ (* (pow a 4) (pow b 6)) (* (pow x-scale 4) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (+ (* 8 (/ (* (pow a 4) (* (pow angle 2) (* (pow b 4) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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 x-scale 2) (pow y-scale 2)))) (* 16 (/ (* (pow a 4) (pow b 6)) (* (pow x-scale 4) (pow y-scale 2)))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (+ (* 16 (/ (* (pow a 4) (pow b 6)) (* (pow x-scale 4) (pow y-scale 2)))) (* (pow angle 2) (+ (* 8 (/ (* (pow a 4) (* (pow angle 2) (* (pow b 4) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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 x-scale 2) (pow y-scale 2)))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (+ (* 16 (/ (* (pow a 4) (pow b 6)) (* (pow x-scale 4) (pow y-scale 2)))) (* (pow angle 2) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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 x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* 8 (/ (* (pow a 4) (* (pow angle 2) (* (pow b 4) (+ (* 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/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (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 b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))))))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))) (* (pow x-scale 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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #s(hole binary64 (* 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) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #s(hole binary64 (+ (* 2 (/ (pow b 2) (pow x-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 x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))))
#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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #s(hole binary64 (+ (* 2 (/ (pow b 2) (pow x-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 x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 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 angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #s(hole binary64 (+ (* 2 (/ (pow b 2) (pow x-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 x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 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 angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 angle 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/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (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 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 b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))))))))))))
#s(approx (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))) #s(hole binary64 (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))) #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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))) #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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))) #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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (/ (/ (* (* (* 2 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* 1/90 (* angle (* (PI) (- (pow b 2) (pow a 2)))))))
#s(approx (* (* (* 2 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* 1/90 (* angle (* (PI) (- (pow b 2) (pow a 2)))))))
#s(approx (* (* 2 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (sin (* 1/180 (* angle (PI))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (cos (* 1/180 (* angle (PI))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 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 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 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 (sqrt (+ (* 2 (/ (pow (* 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 (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (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 (cos (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (pow x-scale 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (+ (/ (* (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)) (+ (/ (* (pow b 2) (pow (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 (cos (* 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)) (/ (* (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) #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 (sin (* (/ angle 180) (PI))) #s(hole binary64 (sin (* 1/180 (* angle (PI))))))
#s(approx (cos (* (/ angle 180) (PI))) #s(hole binary64 (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) #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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* -1 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (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 (cos (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (pow x-scale 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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #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))) (+ (/ (* (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)) (+ (/ (* (pow b 2) (pow (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 (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))) #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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (/ (/ (* (* (* 2 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* 2 (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/8 (* (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* 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 a 2) (pow (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 (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 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) (+ (* 1/8 (* (* y-scale (* (sqrt 8) (+ (* 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 a 2) (pow (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 (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 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) (+ (* 1/8 (* (* y-scale (* (sqrt 8) (+ (* 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 a 2) (pow (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 (/ 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) (+ (* 1/8 (* (* y-scale (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (* -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 (cos (* 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 (/ (* (+ (* 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 a 2) (pow (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 (cos (* 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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 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)))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* x-scale (* y-scale (sqrt 8))) #s(hole binary64 (* x-scale (* y-scale (sqrt 8)))))
#s(approx x-scale #s(hole binary64 x-scale))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* (/ 1 x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 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 (* x-scale x-scale) #s(hole binary64 (pow x-scale 2)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* (pow x-scale 2) y-scale)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (pow x-scale 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (- (* -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 (cos (* 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 (/ (* (+ (* 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 a 2) (pow (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 (cos (* 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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 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))))))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* (pow x-scale 2) y-scale)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (pow x-scale 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) y-scale) (sqrt (+ (* 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) y-scale) (sqrt (/ 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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) y-scale) (sqrt (+ (* 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) y-scale) (sqrt (/ 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (- (* -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 (cos (* 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 (/ (* (+ (* 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 a 2) (pow (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 (cos (* 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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 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))))))))))) y-scale) (sqrt (/ 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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 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 4) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (* (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 a 2) (pow (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 y-scale 2))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)))) (pow x-scale 4))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2))) (* (pow x-scale 2) (+ (* 4 (/ (* (pow a 4) (* (pow b 4) (* (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 y-scale 2) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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 a 2) (pow (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 y-scale 2)))))) (pow x-scale 4))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2))) (* (pow x-scale 2) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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 a 2) (pow (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 y-scale 2))) (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow b 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 y-scale 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 3)))) (* 4 (/ (* (pow a 4) (* (pow b 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) (* 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 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 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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (* 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (+ (* 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 a 2) (pow (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))))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (+ (* 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 a 2) (pow (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))))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (+ (* 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 a 2) (pow (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))))
#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 (/ (+ (* (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)))))) (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (+ (* 1/8 (* (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* 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 a 2) (pow (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 (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (+ (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 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) (+ (* 1/8 (* (* y-scale (* (sqrt 8) (+ (* 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 a 2) (pow (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 (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (+ (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 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) (+ (* 1/8 (* (* y-scale (* (sqrt 8) (+ (* 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 a 2) (pow (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 (/ 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) (+ (* 1/8 (* (* y-scale (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (* -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 (cos (* 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 (/ (* (+ (* 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 a 2) (pow (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 (cos (* 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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 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)))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* -1 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* (pow x-scale 2) y-scale)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (/ (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (/ (- (* (pow x-scale 2) (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (/ (- (* (pow x-scale 2) (- (* (pow x-scale 2) (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (- (* -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 (cos (* 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 (/ (* (+ (* 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 a 2) (pow (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 (cos (* 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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 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))))))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* (pow x-scale 2) y-scale)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (/ (+ (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) y-scale) (sqrt (/ 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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (/ (+ (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) y-scale) (sqrt (/ 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (- (* -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 (cos (* 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 (/ (* (+ (* 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 a 2) (pow (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 (cos (* 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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 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))))))))))) y-scale) (sqrt (/ 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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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 4) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (/ (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (* (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 a 2) (pow (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 y-scale 2))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)))) (pow x-scale 4))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (/ (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2))) (* (pow x-scale 2) (+ (* 4 (/ (* (pow a 4) (* (pow b 4) (* (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 y-scale 2) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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 a 2) (pow (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 y-scale 2)))))) (pow x-scale 4))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (/ (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2))) (* (pow x-scale 2) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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 a 2) (pow (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 y-scale 2))) (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow b 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 y-scale 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 3)))) (* 4 (/ (* (pow a 4) (* (pow b 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) (* 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 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 4))))
#s(approx (* (* x-scale x-scale) (* y-scale y-scale)) #s(hole binary64 (* (pow x-scale 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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-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) (+ (* 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 a 2) (pow (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))))
#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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-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) (+ (* 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 a 2) (pow (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))))
#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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-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) (+ (* 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 a 2) (pow (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))))
#s(approx (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))) #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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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) (+ (* 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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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) (+ (* 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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 4)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 6)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 4)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) x-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) x-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 6) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) x-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) x-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) x-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 6) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) x-scale)))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 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) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (pow y-scale 2)))) (pow x-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 4) (- (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 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))))))) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (pow y-scale 2))))) (pow x-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 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 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))) 3))))) (+ (* 4 (/ (* (pow a 4) (* (pow b 4) (- (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 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))))))) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (pow y-scale 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 y-scale 2))) (* 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 4)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 6)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 4)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* -1 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (/ (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) x-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (/ (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) x-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (/ (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 6) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) x-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) x-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) x-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 6) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) x-scale)))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (/ (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (pow y-scale 2)))) (pow x-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (/ (+ (* 4 (/ (* (pow a 4) (* (pow b 4) (- (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 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))))))) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (pow y-scale 2))))) (pow x-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow a 4) (* (pow b 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 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))) 3))))) (+ (* 4 (/ (* (pow a 4) (* (pow b 4) (- (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 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))))))) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (pow y-scale 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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #s(hole binary64 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #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)))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #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)))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #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)))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* 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 (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))) #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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))) #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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))) #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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 4)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 6)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 4)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* (/ 1 x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) x-scale))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) x-scale))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 6) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) x-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) x-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) x-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 6) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) x-scale))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* -1 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* -1 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 4)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* -1 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 6)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 4)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* -1 (/ (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) x-scale))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* -1 (/ (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) x-scale))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* -1 (/ (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 6) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) x-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* -1 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* -1 (/ (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) x-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* -1 (/ (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) x-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* -1 (/ (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 6) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) x-scale))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/8 (* (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* 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))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow y-scale 2) (+ (* 1/8 (* (* x-scale (* (sqrt 8) (+ (* 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)))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow y-scale 2) (+ (* 1/8 (* (* x-scale (* (sqrt 8) (+ (* 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)))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* 1/8 (* (* x-scale (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (* -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 (/ (* (+ (* 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)))) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (* y-scale (sqrt 8)) #s(hole binary64 (* y-scale (sqrt 8))))
#s(approx y-scale #s(hole binary64 y-scale))
#s(approx (* y-scale 4) #s(hole binary64 (* 4 y-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale (pow y-scale 2))) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (pow y-scale 2) (* (sqrt 8) (+ (* 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)))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow y-scale 2))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow y-scale 2))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (- (* -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 (/ (* (+ (* 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)))) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow y-scale 2))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale (pow y-scale 2))) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (pow y-scale 2) (* (sqrt 8) (+ (* 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)))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow y-scale 2))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow y-scale 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 2))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow y-scale 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (- (* -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 (/ (* (+ (* 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)))) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))) (pow y-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (pow y-scale 4))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (* (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 a 2) (pow (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 x-scale 2))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow x-scale 2)))) (pow y-scale 4))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow x-scale 2))) (* (pow y-scale 2) (+ (* 4 (/ (* (pow a 4) (* (pow b 4) (* (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 x-scale 2) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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)))))) (pow x-scale 2)))))) (pow y-scale 4))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow x-scale 2))) (* (pow y-scale 2) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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)))))) (pow x-scale 2))) (* (pow y-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow b 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 x-scale 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 3)))) (* 4 (/ (* (pow a 4) (* (pow b 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) (* 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 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 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (* 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (+ (* 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 a 2) (pow (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))))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (+ (* 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 a 2) (pow (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))))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (+ (* 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 a 2) (pow (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))))
#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 (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 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)))))) (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 (* y-scale y-scale) #s(hole binary64 (pow y-scale 2)))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (+ (* 1/8 (* (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* 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))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow y-scale 2) (+ (* 1/8 (* (* x-scale (* (sqrt 8) (+ (* 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)))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow y-scale 2) (+ (* 1/8 (* (* x-scale (* (sqrt 8) (+ (* 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)))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* 1/8 (* (* x-scale (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (* -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 (/ (* (+ (* 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)))) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* -1 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale (pow y-scale 2))) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (/ (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (+ (* 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)))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow y-scale 2))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (/ (- (* (pow y-scale 2) (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow y-scale 2))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (/ (- (* (pow y-scale 2) (- (* (pow y-scale 2) (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (- (* -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 (/ (* (+ (* 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)))) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow y-scale 2))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale (pow y-scale 2))) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (+ (* 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)))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow y-scale 2))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (/ (+ (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow y-scale 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 2))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (/ (+ (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow y-scale 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (- (* -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 (/ (* (+ (* 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)))) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))) (pow y-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (pow y-scale 4))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (/ (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (* (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 a 2) (pow (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 x-scale 2))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow x-scale 2)))) (pow y-scale 4))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (/ (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow x-scale 2))) (* (pow y-scale 2) (+ (* 4 (/ (* (pow a 4) (* (pow b 4) (* (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 x-scale 2) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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)))))) (pow x-scale 2)))))) (pow y-scale 4))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (/ (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow x-scale 2))) (* (pow y-scale 2) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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)))))) (pow x-scale 2))) (* (pow y-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow b 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 x-scale 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 3)))) (* 4 (/ (* (pow a 4) (* (pow b 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) (* 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 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 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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #s(hole binary64 (/ (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #s(hole binary64 (/ (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (* 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 a 2) (pow (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))))
#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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #s(hole binary64 (/ (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (* 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 a 2) (pow (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))))
#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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #s(hole binary64 (/ (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (* 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 a 2) (pow (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))))
#s(approx (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))) #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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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) (+ (* 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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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) (+ (* 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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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))))))))) (pow y-scale 4)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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))))))))) (pow y-scale 6)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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))))))))) (pow y-scale 4)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))) y-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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)))))))) y-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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)))))))))) (* x-scale (pow y-scale 6))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))))) y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))) y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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)))))))) y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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)))))))))) (* x-scale (pow y-scale 6))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))))) y-scale)))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 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)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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)))))) (pow x-scale 2)))) (pow y-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 4) (- (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 x-scale 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))))))) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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)))))) (pow x-scale 2))))) (pow y-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 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 x-scale 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))))) (+ (* 4 (/ (* (pow a 4) (* (pow b 4) (- (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 x-scale 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))))))) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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)))))) (pow x-scale 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 x-scale 2))) (* 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (* 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))) (+ (/ (* (pow a 2) (pow (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (* 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))) (+ (/ (* (pow a 2) (pow (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (* 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))) (+ (/ (* (pow a 2) (pow (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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))))))))) (pow y-scale 4)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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))))))))) (pow y-scale 6)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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))))))))) (pow y-scale 4)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* -1 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (/ (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))) y-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (/ (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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)))))))) y-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (/ (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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)))))))))) (* x-scale (pow y-scale 6))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))))) y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))) y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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)))))))) y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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)))))))))) (* x-scale (pow y-scale 6))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))))) y-scale)))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (/ (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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)))))) (pow x-scale 2)))) (pow y-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (/ (+ (* 4 (/ (* (pow a 4) (* (pow b 4) (- (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 x-scale 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))))))) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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)))))) (pow x-scale 2))))) (pow y-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow a 4) (* (pow b 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 x-scale 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))))) (+ (* 4 (/ (* (pow a 4) (* (pow b 4) (- (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 x-scale 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))))))) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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)))))) (pow x-scale 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)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-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 (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #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)))))) (+ (* 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))) (+ (/ (* (pow a 2) (pow (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #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)))))) (+ (* 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))) (+ (/ (* (pow a 2) (pow (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))) #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)))))) (+ (* 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))) (+ (/ (* (pow a 2) (pow (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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))) #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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))) #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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))) #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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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))))))))) (pow y-scale 4)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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))))))))) (pow y-scale 6)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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))))))))) (pow y-scale 4)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))) y-scale))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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)))))))) y-scale))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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)))))))))) (* x-scale (pow y-scale 6))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))))) y-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))) y-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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)))))))) y-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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)))))))))) (* x-scale (pow y-scale 6))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))))) y-scale))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* -1 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* -1 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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))))))))) (pow y-scale 4)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) #s(hole binary64 (* -1 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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))))))))) (pow y-scale 6)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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))))))))) (pow y-scale 4)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* -1 (/ (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))) y-scale))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* -1 (/ (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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)))))))) y-scale))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)))))))) #s(hole binary64 (* -1 (/ (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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)))))))))) (* x-scale (pow y-scale 6))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))))) y-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* -1 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* -1 (/ (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))) y-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* -1 (/ (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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)))))))) y-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (* (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale))) (* (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))))))) #s(hole binary64 (* -1 (/ (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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)))))))))) (* x-scale (pow y-scale 6))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))))) y-scale))))
Outputs
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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)))))))
#s(literal 1/4 binary64)
(*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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 y-scale (sqrt.f64 #s(literal 8 binary64)))
y-scale
(pow.f64 #s(literal 8 binary64) #s(literal 1/2 binary64))
(sqrt.f64 #s(literal 8 binary64))
#s(literal 8 binary64)
(pow.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)))) #s(literal 1/2 binary64))
(sqrt.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 (+.f64 (pow.f64 (*.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))) #s(literal 3 binary64)) (pow.f64 (*.f64 #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))) (fma.f64 (*.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 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 #s(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 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (*.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)))))))
(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 (*.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))))
#s(literal 2 binary64)
(*.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)))))
a
(sin.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 #s(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 (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)))))
b
(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))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64)))))
(*.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64))))
(*.f64 b (*.f64 y-scale #s(literal 4 binary64)))
(*.f64 y-scale #s(literal 4 binary64))
#s(literal 4 binary64)
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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)))))))
#s(literal -1/4 binary64)
(*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))
x-scale
(pow.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)))) #s(literal 1/2 binary64))
(sqrt.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 (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 (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 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 (neg.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))))))))) (neg.f64 (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))
(neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (sqrt.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))) (sqrt.f64 (+.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(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)))))))
(pow.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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(literal 1/2 binary64))
(sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))
(*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))
(*.f64 (/.f64 #s(literal 4 binary64) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))) (*.f64 y-scale y-scale)))
(/.f64 (neg.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))) (neg.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))
(/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))
(*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))
(*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))
(*.f64 b a)
(*.f64 b (neg.f64 a))
(neg.f64 a)
(*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))
(*.f64 (*.f64 x-scale y-scale) (*.f64 x-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 (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 3 binary64)) (pow.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)))) #s(literal 3 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)) (-.f64 (*.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)))) #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (pow.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) #s(literal 3 binary64)) (pow.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) #s(literal 3 binary64))) (fma.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 (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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 (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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)))))
(/.f64 (fma.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(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 (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))))
(sin.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))
#s(literal 180 binary64)
(*.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))))
(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 (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))))
(*.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))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 b b) (*.f64 y-scale y-scale)) (*.f64 (*.f64 x-scale x-scale) (*.f64 a a))) (*.f64 (*.f64 x-scale x-scale) (*.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 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)))
(*.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 (fabs.f64 a) (fabs.f64 a))
(*.f64 (neg.f64 a) (neg.f64 a))
(*.f64 a a)
(pow.f64 a #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 a) #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 (neg.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))
(neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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 (sqrt.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))) (sqrt.f64 (+.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)) (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)))))
(pow.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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)))) #s(literal 1/2 binary64))
(sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))
(*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))
(*.f64 (/.f64 #s(literal 4 binary64) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))) (*.f64 y-scale y-scale)))
(/.f64 (neg.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))) (neg.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))
(/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))
(*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))
(*.f64 (*.f64 x-scale y-scale) (*.f64 x-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 (+.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 3 binary64)) (pow.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)) #s(literal 3 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)) (-.f64 (*.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)) (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 (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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)) (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 (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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)) (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)))
(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 (neg.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))) (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)))
(hypot.f64 (neg.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))) (fabs.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)))
(hypot.f64 (neg.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))
(hypot.f64 (fabs.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))) (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)))
(hypot.f64 (fabs.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))) (fabs.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)))
(hypot.f64 (fabs.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))
(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)) (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)))
(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)) (fabs.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)))
(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 (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(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 (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))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 a a) (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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/8 binary64) (*.f64 (*.f64 (*.f64 a a) (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(literal 2 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(literal 2 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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/8 binary64) (*.f64 (*.f64 (*.f64 a a) (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.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(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(literal 2 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale (*.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 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 5 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (fma.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (fma.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (fma.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 a a) (fma.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 5 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a a) (fma.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64))) (*.f64 (pow.f64 b #s(literal 5 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) (*.f64 #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 (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) (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)))))
#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 a a)
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1/4 binary64) (*.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1/4 binary64) (*.f64 b (*.f64 y-scale (*.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 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1/4 binary64) (*.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1/4 binary64) (*.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 5 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 a a) (fma.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 5 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 b (*.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 x-scale (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 b (*.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))) (/.f64 (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 a a) (fma.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 x-scale (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64))) (*.f64 (pow.f64 b #s(literal 5 binary64)) (*.f64 x-scale (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64))))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 b (*.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))) (/.f64 (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(literal 2 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (-.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.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(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(literal 2 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(literal 2 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (fma.f64 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(literal 2 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (fma.f64 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.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(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(literal 2 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(literal 2 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 x-scale x-scale) (*.f64 y-scale y-scale)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (pow.f64 b #s(literal 4 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 x-scale x-scale) (*.f64 y-scale y-scale)))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (pow.f64 b #s(literal 4 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 4 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (pow.f64 b #s(literal 4 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (pow.f64 b #s(literal 4 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (pow.f64 b #s(literal 4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.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(literal -3 binary64)))) (*.f64 #s(literal 4 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 b #s(literal 4 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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 (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (*.f64 #s(literal 8 binary64) (/.f64 (pow.f64 (*.f64 a b) #s(literal 4 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))
#s(approx (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (*.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 b b)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))
#s(approx (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale))) (*.f64 #s(literal -4 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 b b)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))
#s(approx (* 4 (* (* b a) (* b (neg a)))) (*.f64 #s(literal -4 binary64) (*.f64 (*.f64 a a) (*.f64 b b))))
#s(approx (* (* b a) (* b (neg a))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 a a) (*.f64 b b))))
#s(approx (* b a) (*.f64 a b))
#s(approx (* b (neg a)) (*.f64 #s(literal -1 binary64) (*.f64 a b)))
#s(approx (neg a) (*.f64 #s(literal -1 binary64) a))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (fma.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (fma.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (/.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (fma.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (fma.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.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(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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))))))) (+.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 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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)) (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 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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) (/.f64 (pow.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 (/ (/ (+ (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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.f64 x-scale x-scale) (*.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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (/.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.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(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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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 (- (/ (* b b) (* x-scale x-scale)) (/ (* a a) (* y-scale y-scale))) (/.f64 (*.f64 b b) (*.f64 x-scale 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 a) (*.f64 y-scale y-scale)) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))
#s(approx (/ (* a a) (* y-scale y-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))
#s(approx (* a a) (*.f64 a a))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 a a) (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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/8 binary64) (*.f64 (*.f64 (*.f64 a a) (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(literal 2 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(literal 2 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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/8 binary64) (*.f64 (*.f64 (*.f64 a a) (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.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(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(literal 2 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(literal 2 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (-.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.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(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(literal 2 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(literal 2 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (fma.f64 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(literal 2 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (fma.f64 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.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(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(literal 2 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(literal 2 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 x-scale x-scale) (*.f64 y-scale y-scale)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (pow.f64 b #s(literal 4 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 x-scale x-scale) (*.f64 y-scale y-scale)))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (pow.f64 b #s(literal 4 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 4 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (pow.f64 b #s(literal 4 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (pow.f64 b #s(literal 4 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (pow.f64 b #s(literal 4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.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(literal -3 binary64)))) (*.f64 #s(literal 4 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 b #s(literal 4 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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 (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (* (* b a) (* b (neg a)))) (*.f64 #s(literal 8 binary64) (/.f64 (pow.f64 (*.f64 a b) #s(literal 4 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))
#s(approx (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale)))) (*.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 b b)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))
#s(approx (/ (* 4 (* (* b a) (* b (neg a)))) (* (* x-scale x-scale) (* y-scale y-scale))) (*.f64 #s(literal -4 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 b b)) (*.f64 (*.f64 x-scale x-scale) (*.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (fma.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (fma.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (/.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (fma.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (fma.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.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(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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))))))) (+.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 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (/.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.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(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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-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)))))) (*.f64 x-scale y-scale))))
#s(approx (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-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)))))) (*.f64 x-scale y-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)))))) (*.f64 x-scale y-scale)))))
#s(approx (/ (* (* (* 2 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (*.f64 #s(literal 2 binary64) (*.f64 b b)))
#s(approx (* 2 (- (* b b) (* a a))) (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 a (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 a (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.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 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 a (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.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 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 a (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.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 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))))) (pow.f64 a #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal 1/4 binary64) (*.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 a (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.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 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 a (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.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 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 a (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.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 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 a (fma.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (fma.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 6 binary64)) (*.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) (*.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))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) (*.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)) (*.f64 a a)) (*.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1/4 binary64) (*.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 a (fma.f64 #s(literal -1/4 binary64) (*.f64 y-scale (*.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 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 a (fma.f64 #s(literal -1/4 binary64) (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 a (fma.f64 #s(literal -1/4 binary64) (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 a (fma.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 a (+.f64 (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) x-scale) (/.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) (*.f64 x-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 x-scale (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))) (+.f64 (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) x-scale) (/.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) (*.f64 x-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 x-scale (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 6 binary64)) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 x-scale (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64))))) (+.f64 (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) x-scale) (/.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) (*.f64 x-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #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)) (*.f64 (*.f64 a a) (*.f64 x-scale x-scale))) (*.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 (*.f64 a a) a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) a) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) a) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) a) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 6 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 a a) a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 6 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 (pow.f64 b #s(literal 4 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 6 binary64)) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 6 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 a #s(literal 4 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 6 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 b #s(literal 4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 a #s(literal 6 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 4 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 a #s(literal 4 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 (*.f64 x-scale x-scale) (*.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 a a) (*.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 (*.f64 a a) (*.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 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 a a) (*.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 (*.f64 a a) (*.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 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 a a) (*.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 (*.f64 a a) (*.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 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 a a) (*.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 (*.f64 a a) (*.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 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 (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)) (*.f64 (*.f64 a a) (*.f64 x-scale x-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 (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 (/ (/ (+ (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)) (*.f64 (*.f64 a a) (*.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 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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 a) (*.f64 y-scale 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) (*.f64 (*.f64 a a) (*.f64 x-scale x-scale))) (/.f64 #s(literal 1 binary64) (*.f64 y-scale y-scale)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 a (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 a (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.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 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 a (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.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 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 a (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.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 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))))) (pow.f64 a #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 (*.f64 a a) a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) a) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) a) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) a) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 6 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 a a) a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 6 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 (pow.f64 b #s(literal 4 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 6 binary64)) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 6 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 a #s(literal 4 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 6 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 b #s(literal 4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 a #s(literal 6 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 4 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 a #s(literal 4 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 (*.f64 x-scale x-scale) (*.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 a a) (*.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 (*.f64 a a) (*.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 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 a a) (*.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 (*.f64 a a) (*.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 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 a a) (*.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 (*.f64 a a) (*.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 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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 a a) (*.f64 x-scale x-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 (/.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) (*.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 y-scale y-scale))))))
#s(approx (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-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)))))) (*.f64 x-scale y-scale))))
#s(approx (/ (/ (* (* (* 2 (- (* b b) (* a a))) (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)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 x-scale y-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)))))) (*.f64 (*.f64 a a) (*.f64 x-scale y-scale)))))))
#s(approx (/ (* (* (* 2 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (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) x-scale))))))
#s(approx (* (* (* 2 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (*.f64 #s(literal -2 binary64) (*.f64 a a)))
#s(approx (* 2 (- (* b b) (* a a))) (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 a (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.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 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.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 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.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 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))))) (pow.f64 a #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1/4 binary64) (*.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.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 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.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 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.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 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 6 binary64)) (*.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 1/4 binary64) (*.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 a (fma.f64 #s(literal -1/4 binary64) (*.f64 y-scale (*.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 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 a (fma.f64 #s(literal -1/4 binary64) (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 a (fma.f64 #s(literal -1/4 binary64) (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 a (fma.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (/.f64 (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 a (+.f64 (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) x-scale) (/.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) (*.f64 x-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 x-scale (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))) (+.f64 (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) x-scale) (/.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) (*.f64 x-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 x-scale (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 6 binary64)) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 x-scale (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64))))) (+.f64 (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) x-scale) (/.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) (*.f64 x-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 a a) a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) a) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) a) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) a) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 6 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 (*.f64 a a) a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 6 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 a (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.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 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.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 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.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 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))))) (pow.f64 a #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 a a) a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) a) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) a) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) a) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 6 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 (*.f64 a a) a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 6 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 b b) (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))) (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 b b) (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))) (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 b b) (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 #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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 a (*.f64 y-scale (*.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 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 a a) a) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 (*.f64 a a) a) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 5 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (fma.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (fma.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 a a) a) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (fma.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 b b) (fma.f64 (*.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 (*.f64 a a) a) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 5 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 a a) a) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 b b) (fma.f64 (*.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 (*.f64 (*.f64 a a) a) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64))) (*.f64 (pow.f64 a #s(literal 5 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (*.f64 #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 (* 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 b b)
#s(approx (* 1/4 (* b (* y-scale 4))) (*.f64 b y-scale))
#s(approx (* b (* y-scale 4)) (*.f64 #s(literal 4 binary64) (*.f64 b y-scale)))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1/4 binary64) (*.f64 a (*.f64 y-scale (*.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 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1/4 binary64) (*.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 a a) a) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1/4 binary64) (*.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 5 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 (*.f64 a a) a) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 a a) a) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 b b) (fma.f64 (*.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 (*.f64 a a) a) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 5 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 a (*.f64 x-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 a a) a) (*.f64 x-scale (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 a (*.f64 x-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))) (/.f64 (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 b b) (fma.f64 (*.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 (*.f64 (*.f64 a a) a) (*.f64 x-scale (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64))) (*.f64 (pow.f64 a #s(literal 5 binary64)) (*.f64 x-scale (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64))))))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 a (*.f64 x-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))) (/.f64 (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)))
#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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))) (*.f64 (/.f64 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 b b) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))))) (*.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))))) (*.f64 (/.f64 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 b b) (-.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 #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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))))) (*.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))))) (*.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))))) (*.f64 (/.f64 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))) (*.f64 (/.f64 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (fma.f64 (/.f64 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))))) (*.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (fma.f64 (/.f64 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))))) (*.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 #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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))))) (*.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (pow.f64 a #s(literal 4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (pow.f64 a #s(literal 4 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 4 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 x-scale x-scale) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale x-scale) (*.f64 y-scale y-scale)))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (pow.f64 a #s(literal 4 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 4 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 a #s(literal 4 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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 x-scale x-scale) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)))) (fma.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)))) (fma.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)))))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)))) (fma.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)))))) (fma.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (*.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 (/.f64 (pow.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 (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 (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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))
#s(approx (/ (* b b) (* x-scale x-scale)) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)))
#s(approx (* b b) (*.f64 b b))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 b b) (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))) (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 b b) (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))) (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 b b) (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 #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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))) (*.f64 (/.f64 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 b b) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))))) (*.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))))) (*.f64 (/.f64 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 b b) (-.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 #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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))))) (*.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))))) (*.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))))) (*.f64 (/.f64 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))) (*.f64 (/.f64 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (fma.f64 (/.f64 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))))) (*.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (fma.f64 (/.f64 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))))) (*.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 #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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))))) (*.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (pow.f64 a #s(literal 4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (pow.f64 a #s(literal 4 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 4 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 x-scale x-scale) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale x-scale) (*.f64 y-scale y-scale)))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (pow.f64 a #s(literal 4 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 4 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 a #s(literal 4 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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 x-scale x-scale) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)))) (fma.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)))) (fma.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)))))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)))) (fma.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)))))) (fma.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (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))) (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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (- (* b b) (* a a)) (-.f64 (*.f64 b b) (*.f64 a a)))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 b (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 b (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 b (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 b (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) #s(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 b (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.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 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 b (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.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 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 b (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.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 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 b (fma.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 b (fma.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 6 binary64)) (*.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) (*.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)) (*.f64 b b)) (*.f64 #s(literal 2 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (fma.f64 #s(literal -1/4 binary64) (*.f64 y-scale (*.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 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (fma.f64 #s(literal -1/4 binary64) (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (fma.f64 #s(literal -1/4 binary64) (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (fma.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 b (+.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) x-scale) (/.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) (*.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 x-scale (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))) (+.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) x-scale) (/.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) (*.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 x-scale (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 6 binary64)) (*.f64 (pow.f64 b #s(literal 6 binary64)) (*.f64 x-scale (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64))))) (+.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) x-scale) (/.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) (*.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #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)) (*.f64 (*.f64 b b) (*.f64 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 (*.f64 b b) b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) b) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) b) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) b) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) #s(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 6 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 (*.f64 b b) b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) #s(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 6 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 6 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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale x-scale) (*.f64 y-scale y-scale)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 6 binary64)) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 6 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 6 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 a #s(literal 4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) #s(literal -3 binary64)))) (fma.f64 #s(literal 4 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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) (*.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)) (*.f64 (*.f64 b b) (*.f64 x-scale x-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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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) (*.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)) (*.f64 (*.f64 b b) (*.f64 x-scale x-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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) #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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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) (*.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)) (*.f64 (*.f64 b b) (*.f64 x-scale x-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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) (*.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)) (*.f64 (*.f64 b b) (*.f64 x-scale x-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 (* 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)) (*.f64 (*.f64 b b) (*.f64 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 (* 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 (/ (/ (+ (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)) (*.f64 (*.f64 b b) (*.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)))))
#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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) #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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))))))))
#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) (*.f64 (*.f64 b b) (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (*.f64 x-scale x-scale)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 b (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 b (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 b (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 b (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) #s(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 (*.f64 b b) b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) b) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) b) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) b) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) #s(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 6 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 (*.f64 b b) b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) #s(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 6 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 6 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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale x-scale) (*.f64 y-scale y-scale)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 6 binary64)) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 6 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 6 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 a #s(literal 4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) #s(literal -3 binary64)))) (fma.f64 #s(literal 4 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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) (*.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)) (*.f64 (*.f64 b b) (*.f64 x-scale x-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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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) (*.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)) (*.f64 (*.f64 b b) (*.f64 x-scale x-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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) #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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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) (*.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)) (*.f64 (*.f64 b b) (*.f64 x-scale x-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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) #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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))))))))
#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)) (*.f64 (*.f64 b b) (*.f64 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 (/.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) (*.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))))))
#s(approx (/ (/ (* (* (* 2 (- (* b b) (* a a))) (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 (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) (*.f64 x-scale y-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))))) (*.f64 x-scale y-scale))))))
#s(approx (/ (* (* (* 2 (- (* b b) (* a a))) (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 (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) 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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 b (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) #s(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1/4 binary64) (*.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.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 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.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 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.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 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 6 binary64)) (*.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 1/4 binary64) (*.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 b (fma.f64 #s(literal -1/4 binary64) (*.f64 y-scale (*.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 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 b (fma.f64 #s(literal -1/4 binary64) (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 b (fma.f64 #s(literal -1/4 binary64) (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 b (fma.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (/.f64 (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 b (+.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) x-scale) (/.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) (*.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 x-scale (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))) (+.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) x-scale) (/.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) (*.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 x-scale (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 6 binary64)) (*.f64 (pow.f64 b #s(literal 6 binary64)) (*.f64 x-scale (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64))))) (+.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) x-scale) (/.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) (*.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 (*.f64 b b) b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 b b) b) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 b b) b) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 b b) b) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) #s(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 6 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 (*.f64 b b) b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 b b) b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 b b) b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 b b) b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) #s(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 6 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 b (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) #s(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 (*.f64 b b) b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 b b) b) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 b b) b) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 b b) b) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) #s(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 6 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 (*.f64 b b) b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 b b) b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 b b) b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 b b) b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) #s(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 6 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 #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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)))))))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 b (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (/.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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (/.f64 (*.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 y-scale y-scale)) (+.f64 (/.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 (/.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 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (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/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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)))))))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 #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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)))))))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64)))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64)))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 2 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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 2 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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal 2 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 #s(literal 2 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 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))) (-.f64 (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 2 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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 b (*.f64 y-scale #s(literal 4 binary64))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64)))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 b (*.f64 y-scale #s(literal 4 binary64)))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (fma.f64 b (*.f64 y-scale #s(literal 4 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 2 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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (fma.f64 b (*.f64 y-scale #s(literal 4 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 2 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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal 2 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 #s(literal 2 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 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))) (-.f64 (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 2 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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64)))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 b (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 2 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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 b (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.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 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 #s(literal 2 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 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))) (-.f64 (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 2 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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 2 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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) (*.f64 #s(literal 2 binary64) (*.f64 b b)))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) (fma.f64 #s(literal 2 binary64) (*.f64 b b) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) (fma.f64 #s(literal 2 binary64) (*.f64 b b) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (fma.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 2 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)))))))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) (fma.f64 #s(literal 2 binary64) (*.f64 b b) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (fma.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (fma.f64 #s(literal 2 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 (*.f64 angle angle) (fma.f64 #s(literal 2 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 #s(literal 2 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))))))))))))))))
#s(approx (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (*.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (*.f64 (PI.f64) (PI.f64))))))
#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) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64)))))))
#s(approx (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.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) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.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) (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64))) (*.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 (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) (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64))) (*.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) (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (*.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) (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (*.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 (* angle (PI)) (*.f64 angle (PI.f64)))
#s(approx angle angle)
#s(approx (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (*.f64 #s(literal 2 binary64) (*.f64 b b)))
#s(approx (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64)))) (*.f64 #s(literal 2 binary64) (*.f64 b b))))
#s(approx (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (fma.f64 #s(literal 2 binary64) (*.f64 b b) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)))))))))))
#s(approx (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (fma.f64 #s(literal 2 binary64) (*.f64 b b) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (*.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 #s(literal 2 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))))))))))))
#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) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64)))) (*.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) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.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 b b)))
#s(approx (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (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) (*.f64 (*.f64 angle angle) (*.f64 (PI.f64) (PI.f64))))))
#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/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64)))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64))) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (-.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale #s(literal 4 binary64))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 b (*.f64 y-scale #s(literal 4 binary64)))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale #s(literal 4 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale #s(literal 4 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (-.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (sqrt.f64 #s(literal 2 binary64))) x-scale))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 x-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (*.f64 b (sqrt.f64 #s(literal 2 binary64))) x-scale)))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 x-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 x-scale (-.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))) (/.f64 (*.f64 b (sqrt.f64 #s(literal 2 binary64))) x-scale)))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 x-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 x-scale (-.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 x-scale (-.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 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (-.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))) (/.f64 (*.f64 b (sqrt.f64 #s(literal 2 binary64))) 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 b) (*.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 b) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.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 b) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.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 b) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.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) (*.f64 (*.f64 angle angle) (*.f64 (PI.f64) (PI.f64)))) (*.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 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.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 (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale 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) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64)))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.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 b) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 b) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.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) (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 b) (*.f64 x-scale 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) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64)))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 b b) (*.f64 x-scale 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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 b) (*.f64 x-scale 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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 b) (*.f64 x-scale x-scale))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 4 binary64))) (*.f64 (*.f64 x-scale x-scale) y-scale))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 angle angle) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 y-scale (sqrt.f64 #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 4 binary64))) (*.f64 (*.f64 x-scale x-scale) y-scale))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 angle angle) (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 #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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)))))))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))))) (*.f64 y-scale (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 y-scale (sqrt.f64 #s(literal 2 binary64))))))) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 4 binary64))) (*.f64 (*.f64 x-scale x-scale) y-scale))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 angle angle) (-.f64 (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (/.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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (/.f64 (*.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 y-scale y-scale)) (+.f64 (/.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 (/.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 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (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/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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)))))))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))))) (*.f64 y-scale (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 #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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)))))))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))))) (*.f64 y-scale (sqrt.f64 #s(literal 2 binary64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 y-scale (sqrt.f64 #s(literal 2 binary64))))))) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 4 binary64))) (*.f64 (*.f64 x-scale x-scale) y-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 4 binary64))) (*.f64 (*.f64 x-scale x-scale) y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 y-scale (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 4 binary64))) (*.f64 (*.f64 x-scale x-scale) y-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 y-scale (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 #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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)))))))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))))) (*.f64 y-scale (sqrt.f64 #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 4 binary64))) (*.f64 (*.f64 x-scale x-scale) y-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 y-scale (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 #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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)))))))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))))) (*.f64 y-scale (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (/.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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (/.f64 (*.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 y-scale y-scale)) (+.f64 (/.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 (/.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 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (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/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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)))))))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))))) (*.f64 y-scale (sqrt.f64 #s(literal 2 binary64)))))))) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 4 binary64))) (*.f64 (*.f64 x-scale x-scale) y-scale))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 16 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 b #s(literal 6 binary64))) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (*.f64 y-scale y-scale)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 16 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 b #s(literal 6 binary64))) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (*.f64 y-scale y-scale))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 16 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 b #s(literal 6 binary64))) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (*.f64 y-scale y-scale))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 b #s(literal 4 binary64)) (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/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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 x-scale x-scale) (*.f64 y-scale y-scale))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 16 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 b #s(literal 6 binary64))) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (*.f64 y-scale y-scale))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 b #s(literal 4 binary64)) (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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (/.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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (/.f64 (*.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 y-scale y-scale)) (+.f64 (/.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 (/.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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (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/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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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 x-scale x-scale) (*.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 2 binary64) (/.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) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 b b) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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))))))))))))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 b b) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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/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/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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 b b) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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/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/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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)))) (fma.f64 (*.f64 angle angle) (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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (/.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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (/.f64 (*.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 y-scale y-scale)) (+.f64 (/.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 (/.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 (*.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) (fma.f64 #s(literal 1/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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (/.f64 a y-scale) (/.f64 a y-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) (/ (/ (+ (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 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)))))) (fma.f64 (/.f64 a y-scale) (/.f64 a y-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) (/ (/ (+ (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 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-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 #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 (*.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) (fma.f64 #s(literal 1/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 (/.f64 a y-scale) (/.f64 a y-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) (/ (/ (+ (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 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-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 #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 (*.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 y-scale y-scale)) (+.f64 (/.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 (/.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 (*.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) (fma.f64 #s(literal 1/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 (/.f64 a y-scale) (/.f64 a y-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) (/.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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) x-scale) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) 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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) x-scale) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) 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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) x-scale) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) 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) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))) (*.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) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (fma.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.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) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (fma.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.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) (*.f64 (*.f64 angle angle) (*.f64 (PI.f64) (PI.f64))))))
#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) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64)))))))
#s(approx (pow (* a (sin (* (/ angle 180) (PI)))) 2) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.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) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.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) (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64))) (*.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 (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) (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64))) (*.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) (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (*.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) (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (*.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 (* (/ 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 (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) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64)))) (*.f64 b b)))
#s(approx (pow (* b (cos (* (/ angle 180) (PI)))) 2) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.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 b b)))
#s(approx (pow (* b (cos (* (/ angle 180) (PI)))) 2) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (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) (*.f64 (*.f64 angle angle) (*.f64 (PI.f64) (PI.f64))))))
#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 (/ (/ (+ (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 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) y-scale) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) 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 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) y-scale) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) 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 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) y-scale) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) 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) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))))) (*.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) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (fma.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (fma.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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) (*.f64 (*.f64 angle angle) (*.f64 (PI.f64) (PI.f64)))) (*.f64 a a)))
#s(approx (pow (* a (cos (* (/ angle 180) (PI)))) 2) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.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) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 angle angle) (*.f64 (PI.f64) (PI.f64)))))))
#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 (pow (* b (sin (* (/ angle 180) (PI)))) 2) (*.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))))))
#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) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64)))))))
#s(approx (pow (* b (sin (* (/ angle 180) (PI)))) 2) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64))) (*.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 (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (/.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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 #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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)))))))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 b (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (/.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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (/.f64 (*.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 y-scale y-scale)) (+.f64 (/.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 (/.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 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (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/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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)))))))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 #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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)))))))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 4 binary64))) (*.f64 (*.f64 x-scale x-scale) y-scale))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 angle angle) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 y-scale (sqrt.f64 #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 4 binary64))) (*.f64 (*.f64 x-scale x-scale) y-scale))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 angle angle) (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 #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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)))))))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))))) (*.f64 y-scale (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 y-scale (sqrt.f64 #s(literal 2 binary64))))))) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 4 binary64))) (*.f64 (*.f64 x-scale x-scale) y-scale))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 angle angle) (-.f64 (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (/.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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (/.f64 (*.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 y-scale y-scale)) (+.f64 (/.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 (/.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 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (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/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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)))))))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))))) (*.f64 y-scale (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 #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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)))))))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))))) (*.f64 y-scale (sqrt.f64 #s(literal 2 binary64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 y-scale (sqrt.f64 #s(literal 2 binary64))))))) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 4 binary64))) (*.f64 (*.f64 x-scale x-scale) y-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 4 binary64))) (*.f64 (*.f64 x-scale x-scale) y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 y-scale (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 4 binary64))) (*.f64 (*.f64 x-scale x-scale) y-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 y-scale (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 #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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)))))))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))))) (*.f64 y-scale (sqrt.f64 #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 4 binary64))) (*.f64 (*.f64 x-scale x-scale) y-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 y-scale (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 #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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)))))))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))))) (*.f64 y-scale (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (/.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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (/.f64 (*.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 y-scale y-scale)) (+.f64 (/.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 (/.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 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (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/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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)))))))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))))) (*.f64 y-scale (sqrt.f64 #s(literal 2 binary64)))))))) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 4 binary64))) (*.f64 (*.f64 x-scale x-scale) y-scale))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 16 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 b #s(literal 6 binary64))) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (*.f64 y-scale y-scale)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 16 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 b #s(literal 6 binary64))) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (*.f64 y-scale y-scale))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 16 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 b #s(literal 6 binary64))) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (*.f64 y-scale y-scale))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 b #s(literal 4 binary64)) (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/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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 x-scale x-scale) (*.f64 y-scale y-scale))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 16 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 b #s(literal 6 binary64))) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (*.f64 y-scale y-scale))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 b #s(literal 4 binary64)) (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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (/.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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (/.f64 (*.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 y-scale y-scale)) (+.f64 (/.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 (/.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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (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/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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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 x-scale x-scale) (*.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 2 binary64) (/.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) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 b b) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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))))))))))))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 b b) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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/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/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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 b b) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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/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/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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)))) (fma.f64 (*.f64 angle angle) (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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (/.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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (/.f64 (*.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 y-scale y-scale)) (+.f64 (/.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 (/.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 (*.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) (fma.f64 #s(literal 1/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 (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (/.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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (/ (/ (* (* (* 2 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (*.f64 #s(literal 1/90 binary64) (/.f64 (*.f64 angle (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 x-scale y-scale))))
#s(approx (/ (/ (* (* (* 2 (- (* b b) (* a a))) (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) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 x-scale y-scale)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/11664000 binary64) (/.f64 (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 x-scale y-scale)) (*.f64 #s(literal -1/34992000 binary64) (/.f64 (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 x-scale y-scale)))))))))
#s(approx (/ (/ (* (* (* 2 (- (* b b) (* a a))) (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) (-.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/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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 x-scale y-scale)) (*.f64 #s(literal -1/34992000 binary64) (/.f64 (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 x-scale y-scale))))))))))
#s(approx (/ (/ (* (* (* 2 (- (* b b) (* a a))) (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) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 x-scale y-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/11664000 binary64) (/.f64 (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 x-scale y-scale)) (*.f64 #s(literal -1/34992000 binary64) (/.f64 (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (-.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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale) (*.f64 #s(literal -1/34992000 binary64) (/.f64 (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale))))))))
#s(approx (/ (* (* (* 2 (- (* b b) (* a a))) (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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale) (*.f64 #s(literal -1/34992000 binary64) (/.f64 (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale)))))))))
#s(approx (/ (* (* (* 2 (- (* b b) (* a a))) (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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale) (*.f64 #s(literal -1/34992000 binary64) (/.f64 (*.f64 (*.f64 (*.f64 (PI.f64) (PI.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/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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (-.f64 (*.f64 b b) (*.f64 a a))))))))))
#s(approx (* (* (* 2 (- (* b b) (* a a))) (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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))
#s(approx (* (* (* 2 (- (* b b) (* a a))) (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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.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/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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (sin (* (/ angle 180) (PI)))) (*.f64 angle (fma.f64 #s(literal -1/17496000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (-.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 (- (* b b) (* a a))) (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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (-.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 (- (* b b) (* a a))) (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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (-.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a (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 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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)))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (sqrt.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))))))
#s(approx (sin (* 1/180 (* angle (PI)))) (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 (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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)))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (sqrt.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))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a (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 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a (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 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a (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 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 x-scale x-scale) (*.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a (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 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (pow.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 (*.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 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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 (sin (* (/ angle 180) (PI))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
#s(approx (cos (* (/ angle 180) (PI))) (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) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a (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 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a (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 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a (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 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a (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 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 x-scale x-scale) (*.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a (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 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (/ (/ (* (* (* 2 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (- (* b b) (* a a))) (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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)))))) (sqrt.f64 (/.f64 #s(literal 1 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 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))))) (sqrt.f64 (/.f64 #s(literal 1 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 #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))) #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)))))))))) (sqrt.f64 (/.f64 #s(literal 1 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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))))) (sqrt.f64 (/.f64 #s(literal 1 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 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))) #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))))))))) (sqrt.f64 (/.f64 #s(literal 1 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 #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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)))) (-.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 (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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 #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 #s(literal 1/4 binary64) (/.f64 (pow.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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))) #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)))))))) (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)))))))))) (sqrt.f64 (/.f64 #s(literal 1 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))))))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (sqrt.f64 #s(literal 8 binary64))) (sqrt.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)))))))
#s(approx (* x-scale (* y-scale (sqrt 8))) (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))))
#s(approx x-scale x-scale)
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 #s(literal 1 binary64) x-scale) (sqrt.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)))))))
#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 (* x-scale x-scale) (*.f64 x-scale x-scale))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 x-scale x-scale) y-scale)) (sqrt.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))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))) #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))))))))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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)))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 x-scale x-scale) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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)))) (-.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 (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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 #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 #s(literal 1/4 binary64) (/.f64 (pow.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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))) #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)))))))) (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))))))))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))) #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)))))))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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)))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 x-scale x-scale) y-scale)) (sqrt.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)))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.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 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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)))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))) #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))))))))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.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 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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)))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))) #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)))))))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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)))) (-.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 (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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 #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 #s(literal 1/4 binary64) (/.f64 (pow.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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))) #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)))))))) (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))))))))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 (pow.f64 x-scale #s(literal 4 binary64)) (*.f64 y-scale y-scale)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 y-scale y-scale)))) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 y-scale y-scale)) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.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 (*.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 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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 y-scale y-scale)))))) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 y-scale y-scale)) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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 y-scale y-scale)) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.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))))))))) (*.f64 (*.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 3 binary64)))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.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 (*.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))))))))))) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (pow (* x-scale y-scale) 2) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))
#s(approx (* x-scale y-scale) (*.f64 x-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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (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 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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)))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (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 (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)))) (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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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)))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (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 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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 (*.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 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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)))
#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 (+.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) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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)))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 x-scale x-scale)) (*.f64 y-scale y-scale)) (*.f64 b b)) (*.f64 x-scale x-scale)))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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)))))) (sqrt.f64 (/.f64 #s(literal 1 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 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))))) (sqrt.f64 (/.f64 #s(literal 1 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 #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))) #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)))))))))) (sqrt.f64 (/.f64 #s(literal 1 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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))))) (sqrt.f64 (/.f64 #s(literal 1 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 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))) #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))))))))) (sqrt.f64 (/.f64 #s(literal 1 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 #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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)))) (-.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 (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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 #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 #s(literal 1/4 binary64) (/.f64 (pow.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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))) #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)))))))) (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)))))))))) (sqrt.f64 (/.f64 #s(literal 1 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))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 x-scale x-scale) y-scale)) (sqrt.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))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))) #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))))))))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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)))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 x-scale x-scale) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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)))) (-.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 (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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 #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 #s(literal 1/4 binary64) (/.f64 (pow.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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))) #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)))))))) (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))))))))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))) #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)))))))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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)))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 x-scale x-scale) y-scale)) (sqrt.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)))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.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 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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)))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))) #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))))))))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.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 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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)))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))) #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)))))))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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)))) (-.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 (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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 #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 #s(literal 1/4 binary64) (/.f64 (pow.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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))) #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)))))))) (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))))))))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 (pow.f64 x-scale #s(literal 4 binary64)) (*.f64 y-scale y-scale)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 y-scale y-scale)))) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 y-scale y-scale)) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.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 (*.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 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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 y-scale y-scale)))))) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 y-scale y-scale)) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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 y-scale y-scale)) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.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))))))))) (*.f64 (*.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 3 binary64)))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.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 (*.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))))))))))) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (pow (* x-scale y-scale) 2) (*.f64 (*.f64 x-scale x-scale) (*.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (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 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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)))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (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 (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)))) (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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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)))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (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 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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 (*.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 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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)))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 x-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 x-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 x-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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)))) (-.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)))) (*.f64 #s(literal 1/2 binary64) (/.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 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 2 binary64) (/.f64 (pow.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 #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))))))))) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))) x-scale))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 (pow.f64 x-scale #s(literal 4 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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)))))))) x-scale))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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)))) (-.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)))) (*.f64 #s(literal 1/2 binary64) (/.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 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 2 binary64) (/.f64 (pow.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 #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 (pow.f64 x-scale #s(literal 6 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 (pow.f64 x-scale #s(literal 4 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))) x-scale))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))) x-scale))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 (pow.f64 x-scale #s(literal 4 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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)))))))) x-scale))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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)))) (-.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)))) (*.f64 #s(literal 1/2 binary64) (/.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 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 2 binary64) (/.f64 (pow.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 #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 (pow.f64 x-scale #s(literal 6 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 (pow.f64 x-scale #s(literal 4 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))) x-scale))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 y-scale y-scale)))) (*.f64 x-scale x-scale)))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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))))))) (*.f64 (pow.f64 x-scale #s(literal 4 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 y-scale y-scale))))) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 y-scale y-scale))))) (*.f64 x-scale x-scale)))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #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 6 binary64)) (*.f64 (*.f64 y-scale y-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 3 binary64))))) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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))))))) (*.f64 (pow.f64 x-scale #s(literal 4 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 y-scale y-scale))))) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 y-scale y-scale)))))) (*.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (pow.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 #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 (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 2 binary64) (/.f64 (pow.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 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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)))) (fma.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)) (*.f64 y-scale y-scale)) (fma.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)))) (-.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 6 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)))) (fma.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)) (*.f64 y-scale y-scale)) (fma.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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)))) (-.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 6 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 x-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 x-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 x-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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)))) (-.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)))) (*.f64 #s(literal 1/2 binary64) (/.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 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 2 binary64) (/.f64 (pow.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 #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))))))))) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))) x-scale))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 (pow.f64 x-scale #s(literal 4 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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)))))))) x-scale))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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)))) (-.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)))) (*.f64 #s(literal 1/2 binary64) (/.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 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 2 binary64) (/.f64 (pow.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 #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 (pow.f64 x-scale #s(literal 6 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 (pow.f64 x-scale #s(literal 4 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))) x-scale))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))) x-scale))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 (pow.f64 x-scale #s(literal 4 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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)))))))) x-scale))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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)))) (-.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)))) (*.f64 #s(literal 1/2 binary64) (/.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 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 2 binary64) (/.f64 (pow.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 #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 (pow.f64 x-scale #s(literal 6 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 (pow.f64 x-scale #s(literal 4 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))) x-scale))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 y-scale y-scale)))) (*.f64 x-scale x-scale)))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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))))))) (*.f64 (pow.f64 x-scale #s(literal 4 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 y-scale y-scale))))) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 y-scale y-scale))))) (*.f64 x-scale x-scale)))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #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 6 binary64)) (*.f64 (*.f64 y-scale y-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 3 binary64))))) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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))))))) (*.f64 (pow.f64 x-scale #s(literal 4 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 y-scale y-scale))))) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 y-scale y-scale)))))) (*.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (pow.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 #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 (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 2 binary64) (/.f64 (pow.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 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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)))) (fma.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)) (*.f64 y-scale y-scale)) (fma.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)))) (-.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 6 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)))) (fma.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)) (*.f64 y-scale y-scale)) (fma.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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)))) (-.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 6 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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 x-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 x-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 x-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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)))) (-.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)))) (*.f64 #s(literal 1/2 binary64) (/.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 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 2 binary64) (/.f64 (pow.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 #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))))))))) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) x-scale) (sqrt.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))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))) x-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 (pow.f64 x-scale #s(literal 4 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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)))))))) x-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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)))) (-.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)))) (*.f64 #s(literal 1/2 binary64) (/.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 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 2 binary64) (/.f64 (pow.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 #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 (pow.f64 x-scale #s(literal 6 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 (pow.f64 x-scale #s(literal 4 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))) x-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))) x-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 (pow.f64 x-scale #s(literal 4 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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)))))))) x-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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)))) (-.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)))) (*.f64 #s(literal 1/2 binary64) (/.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 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 2 binary64) (/.f64 (pow.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 #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 (pow.f64 x-scale #s(literal 6 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 (pow.f64 x-scale #s(literal 4 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))) x-scale)))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 x-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 x-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 x-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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)))) (-.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)))) (*.f64 #s(literal 1/2 binary64) (/.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 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 2 binary64) (/.f64 (pow.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 #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))))))))) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))) x-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 (pow.f64 x-scale #s(literal 4 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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)))))))) x-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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)))) (-.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)))) (*.f64 #s(literal 1/2 binary64) (/.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 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 2 binary64) (/.f64 (pow.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 #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 (pow.f64 x-scale #s(literal 6 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 (pow.f64 x-scale #s(literal 4 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))) x-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))) x-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 (pow.f64 x-scale #s(literal 4 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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)))))))) x-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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)))) (-.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)))) (*.f64 #s(literal 1/2 binary64) (/.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 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 2 binary64) (/.f64 (pow.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 #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 (pow.f64 x-scale #s(literal 6 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 (pow.f64 x-scale #s(literal 4 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))) x-scale)))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 x-scale (*.f64 (*.f64 y-scale y-scale) (*.f64 (sqrt.f64 #s(literal 8 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)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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/8 binary64) (*.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 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))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 x-scale (*.f64 (*.f64 y-scale y-scale) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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))) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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/8 binary64) (*.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 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))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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/8 binary64) (*.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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))) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 x-scale (*.f64 (*.f64 y-scale y-scale) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (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 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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))) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.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 (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))))))
#s(approx (* y-scale (sqrt 8)) (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))
#s(approx y-scale y-scale)
#s(approx (* y-scale 4) (*.f64 #s(literal 4 binary64) y-scale))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 y-scale y-scale) (*.f64 (sqrt.f64 #s(literal 8 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))))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (*.f64 y-scale y-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 y-scale y-scale) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 y-scale y-scale) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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))) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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)))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (*.f64 y-scale y-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 y-scale y-scale) (-.f64 (*.f64 (*.f64 y-scale y-scale) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 y-scale y-scale) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (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 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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))) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.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 (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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))) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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)))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (*.f64 y-scale y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 y-scale y-scale) (*.f64 (sqrt.f64 #s(literal 8 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))))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (*.f64 y-scale y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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)))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 y-scale y-scale) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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))) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))) (*.f64 y-scale y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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)))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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))) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 y-scale y-scale) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (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 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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))) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.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 (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))))) (*.f64 y-scale y-scale)))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (*.f64 (*.f64 x-scale x-scale) (pow.f64 y-scale #s(literal 4 binary64))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.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 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.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 (*.f64 x-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 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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))))) (*.f64 x-scale x-scale)))))) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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))))) (*.f64 x-scale x-scale)) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.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 (*.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 3 binary64)))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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))))))) (*.f64 (*.f64 x-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))))))))))) (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (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 (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (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 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (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 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)))) (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 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (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 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)))) (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 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 (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) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 b b) (*.f64 y-scale y-scale)) (*.f64 x-scale x-scale)) (*.f64 a a)) (*.f64 y-scale y-scale)))
#s(approx (* y-scale y-scale) (*.f64 y-scale y-scale))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 x-scale (*.f64 (*.f64 y-scale y-scale) (*.f64 (sqrt.f64 #s(literal 8 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)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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/8 binary64) (*.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 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))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 x-scale (*.f64 (*.f64 y-scale y-scale) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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))) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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/8 binary64) (*.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 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))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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/8 binary64) (*.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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))) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 x-scale (*.f64 (*.f64 y-scale y-scale) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (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 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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))) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.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 (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 y-scale y-scale) (*.f64 (sqrt.f64 #s(literal 8 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))))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (*.f64 y-scale y-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 y-scale y-scale) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 y-scale y-scale) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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))) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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)))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (*.f64 y-scale y-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 y-scale y-scale) (-.f64 (*.f64 (*.f64 y-scale y-scale) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 y-scale y-scale) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (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 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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))) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.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 (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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))) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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)))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (*.f64 y-scale y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 y-scale y-scale) (*.f64 (sqrt.f64 #s(literal 8 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))))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (*.f64 y-scale y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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)))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 y-scale y-scale) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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))) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))) (*.f64 y-scale y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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)))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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))) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 y-scale y-scale) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (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 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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))) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.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 (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))))) (*.f64 y-scale y-scale)))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (*.f64 (*.f64 x-scale x-scale) (pow.f64 y-scale #s(literal 4 binary64))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.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 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.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 (*.f64 x-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 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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))))) (*.f64 x-scale x-scale)))))) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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))))) (*.f64 x-scale x-scale)) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.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 (*.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 3 binary64)))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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))))))) (*.f64 (*.f64 x-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))))))))))) (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (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 (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (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 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (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 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)))) (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 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (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 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)))) (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 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 y-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)) (/.f64 #s(literal 1 binary64) (sqrt.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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 y-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 y-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #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 #s(literal 1/2 binary64) (/.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 #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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))) (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))))))))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.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))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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))))))) y-scale))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))))) (*.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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)))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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)))))))) y-scale))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #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 #s(literal 1/2 binary64) (/.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 #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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))) (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 x-scale (pow.f64 y-scale #s(literal 6 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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)))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))))) (*.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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))))))))) y-scale))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.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)))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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))))))) y-scale))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))))) (*.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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)))))))) y-scale))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #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 #s(literal 1/2 binary64) (/.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 #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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))) (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 x-scale (pow.f64 y-scale #s(literal 6 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))))) (*.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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))))))))) y-scale))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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)))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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)))))) (*.f64 x-scale x-scale)))) (*.f64 y-scale y-scale)))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.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 (*.f64 x-scale x-scale) (*.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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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)))))) (*.f64 x-scale x-scale))))) (*.f64 y-scale y-scale)))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #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 (*.f64 x-scale x-scale) (*.f64 (pow.f64 y-scale #s(literal 6 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 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.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 (*.f64 x-scale x-scale) (*.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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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)))))) (*.f64 x-scale x-scale)))))) (*.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (pow.f64 (*.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 (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 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)) (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)) (*.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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)))) (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)) (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)) (*.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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)))) (-.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 6 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)))) (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)) (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)) (*.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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)))) (-.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 6 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 y-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)) (/.f64 #s(literal 1 binary64) (sqrt.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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 y-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 y-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #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 #s(literal 1/2 binary64) (/.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 #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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))) (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))))))))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.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))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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))))))) y-scale))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))))) (*.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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)))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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)))))))) y-scale))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #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 #s(literal 1/2 binary64) (/.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 #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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))) (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 x-scale (pow.f64 y-scale #s(literal 6 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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)))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))))) (*.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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))))))))) y-scale))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.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)))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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))))))) y-scale))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))))) (*.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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)))))))) y-scale))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #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 #s(literal 1/2 binary64) (/.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 #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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))) (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 x-scale (pow.f64 y-scale #s(literal 6 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))))) (*.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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))))))))) y-scale))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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)))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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)))))) (*.f64 x-scale x-scale)))) (*.f64 y-scale y-scale)))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.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 (*.f64 x-scale x-scale) (*.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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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)))))) (*.f64 x-scale x-scale))))) (*.f64 y-scale y-scale)))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #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 (*.f64 x-scale x-scale) (*.f64 (pow.f64 y-scale #s(literal 6 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 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.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 (*.f64 x-scale x-scale) (*.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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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)))))) (*.f64 x-scale x-scale)))))) (*.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (pow.f64 (*.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 (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 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)) (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)) (*.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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)))) (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)) (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)) (*.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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)))) (-.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 6 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)))) (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)) (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)) (*.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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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)))) (-.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 6 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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)) (/.f64 #s(literal 1 binary64) (sqrt.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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #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 #s(literal 1/2 binary64) (/.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 #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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))) (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))))))))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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)))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.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)))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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))))))) y-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))))) (*.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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)))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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)))))))) y-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #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 #s(literal 1/2 binary64) (/.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 #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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))) (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 x-scale (pow.f64 y-scale #s(literal 6 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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)))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))))) (*.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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))))))))) y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.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))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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))))))) y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))))) (*.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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)))))))) y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #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 #s(literal 1/2 binary64) (/.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 #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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))) (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 x-scale (pow.f64 y-scale #s(literal 6 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))))) (*.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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))))))))) y-scale)))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)) (/.f64 #s(literal 1 binary64) (sqrt.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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #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 #s(literal 1/2 binary64) (/.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 #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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))) (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))))))))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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)))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.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)))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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))))))) y-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))))) (*.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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)))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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)))))))) y-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #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 #s(literal 1/2 binary64) (/.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 #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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))) (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 x-scale (pow.f64 y-scale #s(literal 6 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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)))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))))) (*.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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))))))))) y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.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))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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))))))) y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))))) (*.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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)))))))) y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #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 #s(literal 1/2 binary64) (/.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 #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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))) (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 x-scale (pow.f64 y-scale #s(literal 6 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))))) (*.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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))))))))) y-scale)))

eval569.0ms (2.6%)

Memory
-10.6MiB live, 832.8MiB allocated; 84ms collecting garbage
Compiler

Compiled 461 136 to 11 252 computations (97.6% saved)

prune523.0ms (2.3%)

Memory
-8.0MiB live, 904.3MiB allocated; 25ms collecting garbage
Pruning

64 alts after pruning (64 fresh and 0 done)

PrunedKeptTotal
New1 342481 390
Fresh71623
Picked505
Done000
Total1 354641 418
Accuracy
66.8%
Counts
1 418 → 64
Alt Table
Click to see full alt table
StatusAccuracyProgram
2.2%
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (exp.f64 (*.f64 (log.f64 (*.f64 x-scale y-scale)) #s(literal 2 binary64)))))
2.9%
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (- (/ (* b b) (* x-scale x-scale)) (/ (* a a) (* y-scale y-scale))) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)))))))) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
2.2%
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.f64 #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 (/.f64 a y-scale) (/.f64 a y-scale) (/.f64 (*.f64 b b) (*.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 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
1.2%
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.f64 #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 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))))))) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
2.5%
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) #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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 y-scale y-scale)))))) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
0.7%
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (hypot.f64 (-.f64 #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))) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))
0.2%
(/.f64 (neg.f64 (sqrt.f64 #s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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)))))) (*.f64 x-scale x-scale)))) (*.f64 y-scale y-scale))))) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
2.8%
(/.f64 (neg.f64 #s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 4 binary64))) (*.f64 (*.f64 x-scale x-scale) y-scale)))) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
0.2%
(/.f64 #s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
4.6%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 x-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))))
9.2%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 b (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))))))))
7.0%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 a (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.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 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))))))
42.4%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))
42.4%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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 #s(approx (cos (* 1/180 (* angle (PI)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/64800 binary64) (*.f64 (*.f64 angle angle) (*.f64 (PI.f64) (PI.f64))))))) #s(literal 2 binary64))))))))
30.8%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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) (exp.f64 (*.f64 (log.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) #s(literal 2 binary64)))))))))
▶42.9%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.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))))))))
26.7%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.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 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))
25.3%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 #s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) (fma.f64 #s(literal 2 binary64) (*.f64 b b) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))))))))))
33.8%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 #s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) (*.f64 #s(literal 2 binary64) (*.f64 b b)))))))
35.7%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
22.4%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))))
▶15.7%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
7.9%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 a a) a) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))))
26.3%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64)))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))))))
31.8%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
36.3%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))
10.7%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
8.3%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))))
7.5%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
10.8%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))))
9.7%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
20.6%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))
40.7%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))
21.3%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 b (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))))))
20.3%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 a (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))))
32.1%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) #s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))
10.7%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) #s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))
1.4%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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)) (exp.f64 (*.f64 (log.f64 x-scale) #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))))))))
1.7%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))
1.6%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 #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 b) (*.f64 x-scale x-scale))))))))
8.3%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)))))
3.0%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (sqrt.f64 #s(literal 2 binary64))) x-scale)))))
▶10.3%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)))))
9.1%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 b (*.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
12.8%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 a (*.f64 x-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
7.3%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 b (+.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) x-scale) (/.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) (*.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))))
26.7%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (/.f64 (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale))))))
11.3%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (/.f64 (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale))))))
38.8%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) x-scale) (sqrt.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)))))))))))
16.6%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 x-scale (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))) (+.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) x-scale) (/.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) (*.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))))))
21.7%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 b (+.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) x-scale) (/.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) (*.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))))
0.4%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 b (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))))))
0.4%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 a (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))))
11.9%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
▶5.2%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
14.7%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
1.3%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 b (*.f64 y-scale #s(literal 4 binary64)))))))
2.9%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (sqrt.f64 #s(literal 8 binary64))) (sqrt.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)))))))))
7.5%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))
3.0%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale #s(literal 4 binary64))))))
9.7%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))
0.1%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 x-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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)))))))))))
0.1%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.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 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))))))
▶36.6%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(approx (* 1/4 (* b (* y-scale 4))) (*.f64 b y-scale)))
Compiler

Compiled 33 732 to 11 750 computations (65.2% saved)

series411.0ms (1.8%)

Memory
29.3MiB live, 546.6MiB allocated; 63ms collecting garbage
Counts
74 → 431
Calls
Call 1
Inputs
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.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 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.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)))))))
#s(literal 1/4 binary64)
(*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.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 y-scale (sqrt.f64 #s(literal 8 binary64)))
y-scale
(sqrt.f64 #s(literal 8 binary64))
#s(literal 8 binary64)
(sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.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)))))
(fma.f64 #s(literal 2 binary64) (pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.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))))
#s(literal 2 binary64)
(pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))) #s(literal 2 binary64))
#s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64)))))
(*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))
#s(literal 1/180 binary64)
(*.f64 a (*.f64 angle (PI.f64)))
a
(*.f64 angle (PI.f64))
angle
(PI.f64)
(*.f64 #s(literal 2 binary64) (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 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
b
(cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))
(*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(approx (* 1/4 (* b (* y-scale 4))) (*.f64 b y-scale)))
#s(approx (* 1/4 (* b (* y-scale 4))) (*.f64 b y-scale))
(*.f64 b y-scale)
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)))))
(*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale))))
#s(literal -1/4 binary64)
(*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)))
(*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))
x-scale
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale))
(/.f64 (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)
(*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))
(sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))
(sqrt.f64 #s(literal 2 binary64))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
(*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
(*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))
(fma.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
(*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
(fma.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
(*.f64 y-scale (*.f64 (cos.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)))) #s(literal 4 binary64))
#s(literal 4 binary64)
(*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))
(*.f64 a a)
(fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))
#s(literal -1/2 binary64)
(/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))
(*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))))
(*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))
(*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))
(pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))
(*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))
(*.f64 (*.f64 b b) b)
(*.f64 b b)
(pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))
(*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))
#s(literal 3 binary64)
(/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))
(*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))
(pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))
(*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))
Outputs
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (* (pow a 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (* (pow a 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (pow a 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* 1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow a 2) (+ (* -1/8 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/4 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow a 2) (+ (* 1/4 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (* (pow a 2) (+ (* -1/8 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/8 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 5) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow a 2) (+ (* (pow a 2) (+ (* -1/2 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 5) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) (* (pow a 2) (+ (* -1/2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) (* (pow a 2) (+ (* (pow a 2) (+ (* -1/2 (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 6)) (* (pow b 5) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) #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))))))
#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 (* 1/180 (* a (* angle (PI)))) #s(hole binary64 (* 1/180 (* a (* angle (PI))))))
#s(approx (* a (* angle (PI))) #s(hole binary64 (* a (* angle (PI)))))
#s(approx a #s(hole binary64 a))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* -1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow a 2) (+ (* -1/4 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (* 1/8 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow a 2) (+ (* -1/4 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (* (pow a 2) (+ (* -1/8 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 5) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (* 1/8 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow a 2) (+ (* (pow a 2) (+ (* -1/2 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 5) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (/ (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale)))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (+ (/ (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* b (* x-scale (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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) (+ (* -1/2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 3) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* b (* x-scale (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) (/ (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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) (+ (* (pow a 2) (+ (* -1/2 (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (* (pow b 3) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (* 1/2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 6)) (* (pow b 5) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5)))))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* b (* x-scale (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) (/ (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale))))
#s(approx (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale) #s(hole binary64 (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale)))
#s(approx (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) #s(hole binary64 (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))
#s(approx (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))
#s(approx (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (/ (+ (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))) a)))
#s(approx (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))) #s(hole binary64 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) #s(hole binary64 (* 4 (* b (* y-scale (cos (* 1/180 (* angle (PI)))))))))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) #s(hole binary64 (+ (* 4 (* b (* y-scale (cos (* 1/180 (* angle (PI))))))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) #s(hole binary64 (+ (* 4 (* b (* y-scale (cos (* 1/180 (* angle (PI))))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) #s(hole binary64 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))
#s(approx (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) #s(hole binary64 (* (pow a 2) (+ (* -1/2 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* a a) #s(hole binary64 (pow a 2)))
#s(approx (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))
#s(approx (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3))) #s(hole binary64 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))
#s(approx (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) #s(hole binary64 (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 4)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 6)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 4)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* 1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (+ (* -1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (+ (* -1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/8 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* a (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* a (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (pow (cos (* 1/180 (* angle (PI)))) 6)) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (* (pow a 2) (+ (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow a 2))) (* 2 (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (* -1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* -1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (* -1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (* 1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (* -1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (+ (* -1/8 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (* 1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale)))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (/ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* x-scale (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (+ (/ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* x-scale (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (+ (* 1/2 (/ (* (pow b 6) (pow (cos (* 1/180 (* angle (PI)))) 6)) (* (pow a 6) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5)))))) (+ (/ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* x-scale (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))
#s(approx (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (* a (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) #s(hole binary64 (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) #s(hole binary64 (* (pow a 4) (+ (* -1/2 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* (pow a 2) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) #s(hole binary64 (* (pow a 4) (+ (* -1/2 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 4 (/ (* b (* y-scale (cos (* 1/180 (* angle (PI)))))) (pow a 4))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* (pow a 2) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) #s(hole binary64 (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))))
#s(approx (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) #s(hole binary64 (* (pow a 4) (+ (* -1/2 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* (pow a 2) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (* -1/2 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))))
#s(approx (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (* (pow a 2) (+ (* -1/2 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* (pow a 2) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 4)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 6)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 4)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (+ (* -1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (+ (* -1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/8 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* a (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* a (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (pow (cos (* 1/180 (* angle (PI)))) 6)) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* 1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (* -1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* -1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (* -1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (* 1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (* -1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (+ (* -1/8 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (* 1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (/ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* x-scale (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (+ (/ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* x-scale (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (+ (* 1/2 (/ (* (pow b 6) (pow (cos (* 1/180 (* angle (PI)))) 6)) (* (pow a 6) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5)))))) (+ (/ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* x-scale (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))))
#s(approx (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (* -1 (* a (+ (* -1 (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (* -1 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 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) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))) (sqrt (/ 1 (+ (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 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) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (sqrt (/ 1 (+ (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 (cos (* 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) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))) (sqrt (/ 1 (+ (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 (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 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow b 2) (+ (* -1/8 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/4 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow b 2) (+ (* 1/4 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (* (pow b 2) (+ (* -1/8 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/8 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 5) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow b 2) (+ (* -1/2 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow b 2) (+ (* (pow b 2) (+ (* -1/2 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 5) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (* (pow b 2) (+ (* -1/2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (* (pow b 2) (+ (* (pow b 2) (+ (* -1/2 (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 6)) (* (pow a 5) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 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 b #s(hole binary64 b))
#s(approx (* 1/4 (* b (* y-scale 4))) #s(hole binary64 (* b y-scale)))
#s(approx (* b y-scale) #s(hole binary64 (* b y-scale)))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* -1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow b 2) (+ (* -1/4 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (* 1/8 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow b 2) (+ (* -1/4 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (* (pow b 2) (+ (* -1/8 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 5) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (* 1/8 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow b 2) (+ (* -1/2 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow b 2) (+ (* (pow b 2) (+ (* -1/2 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 5) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (+ (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* a (* x-scale (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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) (+ (* -1/2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 3) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* a (* x-scale (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))) (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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) (+ (* (pow b 2) (+ (* -1/2 (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (* (pow a 3) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (* 1/2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 6)) (* (pow a 5) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5)))))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* a (* x-scale (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))) (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale))))
#s(approx (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))) (/ (* (pow a 2) (* (pow b 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))))) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))) (pow b 3))))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))) (* (pow b 2) (+ (* 4 (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI))))))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) (pow b 3))))
#s(approx (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))) (/ (* (pow a 2) (* (pow b 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))))) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))) (pow b 3))))
#s(approx (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))) (/ (* (pow b 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))) (pow b 3))))
#s(approx (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)) #s(hole binary64 (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))
#s(approx (* (* b b) b) #s(hole binary64 (pow b 3)))
#s(approx (* b b) #s(hole binary64 (pow b 2)))
#s(approx (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))) #s(hole binary64 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))
#s(approx (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) #s(hole binary64 (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 4)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 6)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 4)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (+ (* 1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (+ (* -1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (+ (* -1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/8 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* 1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* b (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* b (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (pow (sin (* 1/180 (* angle (PI)))) 6)) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (* (pow b 2) (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow b 2))) (* 2 (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (* -1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* -1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (* -1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (* 1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (* -1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (+ (* -1/8 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (* 1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (/ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (+ (/ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (+ (* 1/2 (/ (* (pow a 6) (pow (sin (* 1/180 (* angle (PI)))) 6)) (* (pow b 6) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5)))))) (+ (/ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (* (pow b 2) (+ (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (pow b 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) #s(hole binary64 (* b (+ (* 4 (* y-scale (cos (* 1/180 (* angle (PI)))))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) #s(hole binary64 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 4 (* y-scale (cos (* 1/180 (* angle (PI)))))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))) b)))
#s(approx (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))) b)))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 4)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 6)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 4)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (+ (* 1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (+ (* -1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (+ (* -1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/8 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* 1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* b (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* b (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (pow (sin (* 1/180 (* angle (PI)))) 6)) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* 1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (* -1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* -1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (* -1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (* 1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (* -1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (+ (* -1/8 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (* 1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (/ (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (/ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (+ (/ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (+ (* 1/2 (/ (* (pow a 6) (pow (sin (* 1/180 (* angle (PI)))) 6)) (* (pow b 6) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5)))))) (+ (/ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) #s(hole binary64 (* -1 (* b (+ (* -4 (* y-scale (cos (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) #s(hole binary64 (* -1 (* b (+ (* -4 (* y-scale (cos (* 1/180 (* angle (PI)))))) (+ (* -1 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (* 1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))))))))
#s(approx (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))) (* 1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) b))))
#s(approx (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))) (* 1/2 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) b))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))))))) (* b (sqrt 2)))) (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* b (sqrt 2)))) (* 1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* b (sqrt 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* 1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* 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/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (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 b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))))) (* 1/2 (/ (* (pow x-scale 2) (* (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* b (sqrt 2)))) (* 1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/8 (/ (* (pow angle 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2))))))) (* b (sqrt 2)))) (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* y-scale (* (sqrt 8) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))))) (* b (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* y-scale (* (sqrt 8) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* y-scale (* (sqrt 8) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* 1/8 (/ (* y-scale (* (sqrt 8) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2))))))) (* b (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* y-scale (* (sqrt 8) (- (+ (* 2 (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* 2 (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))))) (* 1/2 (/ (* (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2)))))) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* b (* y-scale (* (sqrt 2) (sqrt 8))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* 1/2 (/ (* (pow angle 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2))))))) (* b (sqrt 2)))) (* b (* y-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* b (* y-scale (* (sqrt 2) (sqrt 8)))) (* (pow angle 2) (+ (* 1/2 (/ (* y-scale (* (sqrt 8) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))))) (* b (sqrt 2)))) (* 1/2 (/ (* (pow angle 2) (* y-scale (* (sqrt 8) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* b (* y-scale (* (sqrt 2) (sqrt 8)))) (* (pow angle 2) (+ (* 1/2 (/ (* y-scale (* (sqrt 8) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* 1/2 (/ (* y-scale (* (sqrt 8) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2))))))) (* b (sqrt 2)))) (* 1/2 (/ (* (pow angle 2) (* y-scale (* (sqrt 8) (- (+ (* 2 (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* 2 (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))))) (* 1/2 (/ (* (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2)))))) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* b (sqrt 2))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* 1/2 (/ (* (pow angle 2) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2))))) (* b (sqrt 2)))) (* b (sqrt 2)))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* b (sqrt 2)) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2)))))) (* b (sqrt 2)))) (* 1/2 (/ (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) (* b (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* b (sqrt 2)) (* (pow angle 2) (+ (* 1/2 (/ (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (- (+ (* 2 (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* 2 (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))))) (* 1/2 (/ (* (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2)))))) (* (pow b 2) (pow (sqrt 2) 2)))))) (* b (sqrt 2)))) (* 1/2 (/ (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2))))) (* b (sqrt 2)))))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (* 2 (pow b 2))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (+ (* 2 (pow b 2)) (* (pow angle 2) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (+ (* 2 (pow b 2)) (* (pow angle 2) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (+ (* 1/16200 (* (pow a 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (+ (* 2 (pow b 2)) (* (pow angle 2) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (+ (* 1/16200 (* (pow a 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (+ (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (* (pow angle 2) (+ (* 2 (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* 2 (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))))))))))))))
#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 (* angle (PI)) #s(hole binary64 (* angle (PI))))
#s(approx angle #s(hole binary64 angle))
#s(approx (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (* 2 (pow b 2))))
#s(approx (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (+ (* -1/16200 (* (pow angle 2) (* (pow b 2) (pow (PI) 2)))) (* 2 (pow b 2)))))
#s(approx (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (+ (* 2 (pow b 2)) (* (pow angle 2) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 2 (* (pow angle 2) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))))))
#s(approx (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (+ (* 2 (pow b 2)) (* (pow angle 2) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* 2 (* (pow angle 2) (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))))))
#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 (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 (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* -1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))))) (* b (sqrt 2)))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* -1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* -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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* b (sqrt 2)))) (* -1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))))) (* b (sqrt 2)))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* -1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* -1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* 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)))) (* 1/2 (/ (* (pow x-scale 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)))) (- (+ (* -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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* b (sqrt 2)))) (* -1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* -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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (* y-scale (* (sqrt 2) (sqrt 8))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* 1/2 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))))) (* b (sqrt 2)))) (* b (* y-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* b (* y-scale (* (sqrt 2) (sqrt 8)))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* -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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* b (sqrt 2)))) (* 1/2 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))))) (* b (sqrt 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* b (* y-scale (* (sqrt 2) (sqrt 8)))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* 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)))) (* 1/2 (/ (* (pow x-scale 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)))) (- (+ (* -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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* b (sqrt 2)))) (* 1/2 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* -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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (/ (* b (sqrt 2)) x-scale)))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (+ (* 1/2 (/ (* (pow angle 2) (* x-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)))))) (* b (sqrt 2)))) (/ (* b (sqrt 2)) x-scale))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 angle 2) (+ (* 1/2 (/ (* x-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))))) (* b (sqrt 2)))) (* 1/2 (/ (* (pow angle 2) (* x-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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* b (sqrt 2)))))) (/ (* b (sqrt 2)) x-scale))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 angle 2) (+ (* 1/2 (/ (* x-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))))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* 1/2 (/ (* x-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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2)))))) (* b (sqrt 2)))) (* 1/2 (/ (* (pow angle 2) (* x-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)))) (* 1/2 (/ (* (pow x-scale 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)))) (- (+ (* -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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* (pow b 2) (pow (sqrt 2) 2))))))) (* b (sqrt 2)))))))) (/ (* b (sqrt 2)) x-scale))))
#s(approx (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale) #s(hole binary64 (* 1/180 (/ (* a (* angle (* (PI) (sqrt 2)))) x-scale))))
#s(approx (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale) #s(hole binary64 (* angle (+ (* -1/34992000 (/ (* a (* (pow angle 2) (* (pow (PI) 3) (sqrt 2)))) x-scale)) (* 1/180 (/ (* a (* (PI) (sqrt 2))) x-scale))))))
#s(approx (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale) #s(hole binary64 (* angle (+ (* 1/180 (/ (* a (* (PI) (sqrt 2))) x-scale)) (* (pow angle 2) (+ (* -1/34992000 (/ (* a (* (pow (PI) 3) (sqrt 2))) x-scale)) (* 1/22674816000000 (/ (* a (* (pow angle 2) (* (pow (PI) 5) (sqrt 2)))) x-scale))))))))
#s(approx (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale) #s(hole binary64 (* angle (+ (* 1/180 (/ (* a (* (PI) (sqrt 2))) x-scale)) (* (pow angle 2) (+ (* -1/34992000 (/ (* a (* (pow (PI) 3) (sqrt 2))) x-scale)) (* (pow angle 2) (+ (* -1/30855889612800000000 (/ (* a (* (pow angle 2) (* (pow (PI) 7) (sqrt 2)))) x-scale)) (* 1/22674816000000 (/ (* a (* (pow (PI) 5) (sqrt 2))) x-scale))))))))))
#s(approx (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) #s(hole binary64 (* 1/180 (* a (* angle (* (PI) (sqrt 2)))))))
#s(approx (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) #s(hole binary64 (* angle (+ (* -1/34992000 (* a (* (pow angle 2) (* (pow (PI) 3) (sqrt 2))))) (* 1/180 (* a (* (PI) (sqrt 2))))))))
#s(approx (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) #s(hole binary64 (* angle (+ (* 1/180 (* a (* (PI) (sqrt 2)))) (* (pow angle 2) (+ (* -1/34992000 (* a (* (pow (PI) 3) (sqrt 2)))) (* 1/22674816000000 (* a (* (pow angle 2) (* (pow (PI) 5) (sqrt 2)))))))))))
#s(approx (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) #s(hole binary64 (* angle (+ (* 1/180 (* a (* (PI) (sqrt 2)))) (* (pow angle 2) (+ (* -1/34992000 (* a (* (pow (PI) 3) (sqrt 2)))) (* (pow angle 2) (+ (* -1/30855889612800000000 (* a (* (pow angle 2) (* (pow (PI) 7) (sqrt 2))))) (* 1/22674816000000 (* a (* (pow (PI) 5) (sqrt 2))))))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) #s(hole binary64 (* 1/180 (* angle (* (PI) (sqrt 2))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) #s(hole binary64 (* angle (+ (* -1/34992000 (* (pow angle 2) (* (pow (PI) 3) (sqrt 2)))) (* 1/180 (* (PI) (sqrt 2)))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) #s(hole binary64 (* angle (+ (* 1/180 (* (PI) (sqrt 2))) (* (pow angle 2) (+ (* -1/34992000 (* (pow (PI) 3) (sqrt 2))) (* 1/22674816000000 (* (pow angle 2) (* (pow (PI) 5) (sqrt 2))))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) #s(hole binary64 (* angle (+ (* 1/180 (* (PI) (sqrt 2))) (* (pow angle 2) (+ (* -1/34992000 (* (pow (PI) 3) (sqrt 2))) (* (pow angle 2) (+ (* -1/30855889612800000000 (* (pow angle 2) (* (pow (PI) 7) (sqrt 2)))) (* 1/22674816000000 (* (pow (PI) 5) (sqrt 2)))))))))))
#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 (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (* 180 (/ (pow b 2) (* a (* angle (* (PI) (sqrt 2))))))))
#s(approx (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (/ (+ (* 180 (/ (pow b 2) (* a (* (PI) (sqrt 2))))) (* (pow angle 2) (- (+ (* -1/180 (/ (* (pow b 2) (PI)) (* a (sqrt 2)))) (* 1/180 (* a (* (PI) (sqrt 2))))) (* -1/1080 (/ (* (pow b 2) (PI)) (* a (sqrt 2))))))) angle)))
#s(approx (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (/ (+ (* 180 (/ (pow b 2) (* a (* (PI) (sqrt 2))))) (* (pow angle 2) (- (+ (* -1/180 (/ (* (pow b 2) (PI)) (* a (sqrt 2)))) (+ (* 1/180 (* a (* (PI) (sqrt 2)))) (* (pow angle 2) (- (+ (* -1/34992000 (* a (* (pow (PI) 3) (sqrt 2)))) (* 180 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* a (* (PI) (sqrt 2)))))) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/180 (/ (* (pow b 2) (PI)) (* a (sqrt 2)))) (* -1/1080 (/ (* (pow b 2) (PI)) (* a (sqrt 2))))))) (* 1/699840000 (/ (* (pow b 2) (pow (PI) 3)) (* a (sqrt 2))))))))) (* -1/1080 (/ (* (pow b 2) (PI)) (* a (sqrt 2))))))) angle)))
#s(approx (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (/ (+ (* 180 (/ (pow b 2) (* a (* (PI) (sqrt 2))))) (* (pow angle 2) (- (+ (* -1/180 (/ (* (pow b 2) (PI)) (* a (sqrt 2)))) (+ (* 1/180 (* a (* (PI) (sqrt 2)))) (* (pow angle 2) (- (+ (* -1/34992000 (* a (* (pow (PI) 3) (sqrt 2)))) (+ (* 180 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* a (* (PI) (sqrt 2))))) (* (pow angle 2) (- (+ (* 1/22674816000000 (* a (* (pow (PI) 5) (sqrt 2)))) (* 180 (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* a (* (PI) (sqrt 2)))))) (+ (* -1/194400 (* (pow (PI) 2) (- (* 180 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* a (* (PI) (sqrt 2))))) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/180 (/ (* (pow b 2) (PI)) (* a (sqrt 2)))) (* -1/1080 (/ (* (pow b 2) (PI)) (* a (sqrt 2))))))) (* 1/699840000 (/ (* (pow b 2) (pow (PI) 3)) (* a (sqrt 2)))))))) (+ (* -1/952342272000000 (/ (* (pow b 2) (pow (PI) 5)) (* a (sqrt 2)))) (* 1/125971200000 (* (pow (PI) 4) (- (* -1/180 (/ (* (pow b 2) (PI)) (* a (sqrt 2)))) (* -1/1080 (/ (* (pow b 2) (PI)) (* a (sqrt 2))))))))))))) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/180 (/ (* (pow b 2) (PI)) (* a (sqrt 2)))) (* -1/1080 (/ (* (pow b 2) (PI)) (* a (sqrt 2))))))) (* 1/699840000 (/ (* (pow b 2) (pow (PI) 3)) (* a (sqrt 2))))))))) (* -1/1080 (/ (* (pow b 2) (PI)) (* a (sqrt 2))))))) angle)))
#s(approx (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))) #s(hole binary64 (* 180 (/ (pow b 2) (* a (* angle (* (PI) (sqrt 2))))))))
#s(approx (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))) #s(hole binary64 (/ (+ (* 180 (/ (pow b 2) (* a (* (PI) (sqrt 2))))) (* (pow angle 2) (- (* -1/180 (/ (* (pow b 2) (PI)) (* a (sqrt 2)))) (* -1/1080 (/ (* (pow b 2) (PI)) (* a (sqrt 2))))))) angle)))
#s(approx (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))) #s(hole binary64 (/ (+ (* 180 (/ (pow b 2) (* a (* (PI) (sqrt 2))))) (* (pow angle 2) (- (+ (* -1/180 (/ (* (pow b 2) (PI)) (* a (sqrt 2)))) (* (pow angle 2) (- (* 180 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* a (* (PI) (sqrt 2))))) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/180 (/ (* (pow b 2) (PI)) (* a (sqrt 2)))) (* -1/1080 (/ (* (pow b 2) (PI)) (* a (sqrt 2))))))) (* 1/699840000 (/ (* (pow b 2) (pow (PI) 3)) (* a (sqrt 2)))))))) (* -1/1080 (/ (* (pow b 2) (PI)) (* a (sqrt 2))))))) angle)))
#s(approx (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))) #s(hole binary64 (/ (+ (* 180 (/ (pow b 2) (* a (* (PI) (sqrt 2))))) (* (pow angle 2) (- (+ (* -1/180 (/ (* (pow b 2) (PI)) (* a (sqrt 2)))) (* (pow angle 2) (- (+ (* 180 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* a (* (PI) (sqrt 2))))) (* (pow angle 2) (- (* 180 (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* a (* (PI) (sqrt 2))))) (+ (* -1/194400 (* (pow (PI) 2) (- (* 180 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* a (* (PI) (sqrt 2))))) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/180 (/ (* (pow b 2) (PI)) (* a (sqrt 2)))) (* -1/1080 (/ (* (pow b 2) (PI)) (* a (sqrt 2))))))) (* 1/699840000 (/ (* (pow b 2) (pow (PI) 3)) (* a (sqrt 2)))))))) (+ (* -1/952342272000000 (/ (* (pow b 2) (pow (PI) 5)) (* a (sqrt 2)))) (* 1/125971200000 (* (pow (PI) 4) (- (* -1/180 (/ (* (pow b 2) (PI)) (* a (sqrt 2)))) (* -1/1080 (/ (* (pow b 2) (PI)) (* a (sqrt 2)))))))))))) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/180 (/ (* (pow b 2) (PI)) (* a (sqrt 2)))) (* -1/1080 (/ (* (pow b 2) (PI)) (* a (sqrt 2))))))) (* 1/699840000 (/ (* (pow b 2) (pow (PI) 3)) (* a (sqrt 2)))))))) (* -1/1080 (/ (* (pow b 2) (PI)) (* a (sqrt 2))))))) angle)))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) #s(hole binary64 (* 4 (* b y-scale))))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) #s(hole binary64 (+ (* 4 (* b y-scale)) (* (pow angle 2) (+ (* -1/16200 (* b (* y-scale (pow (PI) 2)))) (* 1/32400 (/ (* (pow a 2) (* y-scale (* (pow (PI) 2) (sqrt 8)))) (* b (sqrt 2)))))))))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) #s(hole binary64 (+ (* 4 (* b y-scale)) (* (pow angle 2) (+ (* -1/16200 (* b (* y-scale (pow (PI) 2)))) (+ (* 1/32400 (/ (* (pow a 2) (* y-scale (* (pow (PI) 2) (sqrt 8)))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* 1/6298560000 (* b (* y-scale (pow (PI) 4)))) (* (pow a 2) (- (+ (* -1/2099520000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))))))))))))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) #s(hole binary64 (+ (* 4 (* b y-scale)) (* (pow angle 2) (+ (* -1/16200 (* b (* y-scale (pow (PI) 2)))) (+ (* 1/32400 (/ (* (pow a 2) (* y-scale (* (pow (PI) 2) (sqrt 8)))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* 1/6298560000 (* b (* y-scale (pow (PI) 4)))) (+ (* (pow a 2) (- (+ (* -1/2099520000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2)))))) (* (pow angle 2) (+ (* -1/6122200320000000 (* b (* y-scale (pow (PI) 6)))) (* (pow a 2) (- (+ (* -1/2 (- (* -1/51018336000000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 6) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (* (sqrt 8) (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))))))) (* (pow b 3) (pow (sqrt 2) 3)))))) (/ (* y-scale (* (sqrt 8) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* b (sqrt 2)))) (+ (* -1/64800 (* (pow (PI) 2) (- (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2)))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))))) (* 1/816293376000000 (/ (* y-scale (* (pow (PI) 6) (sqrt 8))) (* b (sqrt 2))))))))))))))))))
#s(approx (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4)) #s(hole binary64 (* 4 y-scale)))
#s(approx (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4)) #s(hole binary64 (+ (* -1/16200 (* (pow angle 2) (* y-scale (pow (PI) 2)))) (* 4 y-scale))))
#s(approx (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4)) #s(hole binary64 (+ (* 4 y-scale) (* (pow angle 2) (+ (* -1/16200 (* y-scale (pow (PI) 2))) (* 1/6298560000 (* (pow angle 2) (* y-scale (pow (PI) 4)))))))))
#s(approx (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4)) #s(hole binary64 (+ (* 4 y-scale) (* (pow angle 2) (+ (* -1/16200 (* y-scale (pow (PI) 2))) (* (pow angle 2) (+ (* -1/6122200320000000 (* (pow angle 2) (* y-scale (pow (PI) 6)))) (* 1/6298560000 (* y-scale (pow (PI) 4))))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) 4) #s(hole binary64 4))
#s(approx (* (cos (* 1/180 (* angle (PI)))) 4) #s(hole binary64 (+ 4 (* -1/16200 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) 4) #s(hole binary64 (+ 4 (* (pow angle 2) (+ (* -1/16200 (pow (PI) 2)) (* 1/6298560000 (* (pow angle 2) (pow (PI) 4))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) 4) #s(hole binary64 (+ 4 (* (pow angle 2) (+ (* -1/16200 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/6122200320000000 (* (pow angle 2) (pow (PI) 6))) (* 1/6298560000 (pow (PI) 4)))))))))
#s(approx (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) #s(hole binary64 (* 1/32400 (/ (* (pow a 2) (* (pow angle 2) (* y-scale (* (pow (PI) 2) (sqrt 8))))) (* b (sqrt 2))))))
#s(approx (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (* (pow a 2) (* y-scale (* (pow (PI) 2) (sqrt 8)))) (* b (sqrt 2)))) (* (pow a 2) (* (pow angle 2) (- (+ (* -1/2099520000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2)))))))))))
#s(approx (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (* (pow a 2) (* y-scale (* (pow (PI) 2) (sqrt 8)))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* (pow a 2) (* (pow angle 2) (- (+ (* -1/2 (- (* -1/51018336000000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 6) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (* (sqrt 8) (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))))))) (* (pow b 3) (pow (sqrt 2) 3)))))) (/ (* y-scale (* (sqrt 8) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* b (sqrt 2)))) (+ (* -1/64800 (* (pow (PI) 2) (- (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2)))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))))) (* 1/816293376000000 (/ (* y-scale (* (pow (PI) 6) (sqrt 8))) (* b (sqrt 2)))))))) (* (pow a 2) (- (+ (* -1/2099520000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))))))))))
#s(approx (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (* (pow a 2) (* y-scale (* (pow (PI) 2) (sqrt 8)))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* (pow a 2) (- (+ (* -1/2099520000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2)))))) (* (pow angle 2) (+ (* (pow a 2) (* (pow angle 2) (- (+ (* -1/2 (- (/ (* (pow a 2) (* y-scale (* (sqrt 8) (+ (* 1/9917964518400000000 (pow (PI) 8)) (* 1/16200 (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))))))) (* (pow b 3) (pow (sqrt 2) 3))) (+ (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (* (sqrt 8) (+ (* 1/25194240000 (pow (PI) 4)) (+ (* 1/12597120000 (pow (PI) 4)) (+ (* 1/4199040000 (pow (PI) 4)) (* 1/2099520000 (pow (PI) 4))))))))) (* (pow b 3) (pow (sqrt 2) 3)))) (* (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))) (- (* -1/51018336000000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 6) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (* (sqrt 8) (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))))))) (* (pow b 3) (pow (sqrt 2) 3))))))))) (/ (* y-scale (* (sqrt 8) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))) (* b (sqrt 2)))) (+ (* -1/64800 (* (pow (PI) 2) (- (/ (* y-scale (* (sqrt 8) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* b (sqrt 2))) (+ (* -1/64800 (* (pow (PI) 2) (- (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2)))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))))) (* 1/816293376000000 (/ (* y-scale (* (pow (PI) 6) (sqrt 8))) (* b (sqrt 2)))))))) (+ (* -1/793437161472000000000 (/ (* y-scale (* (pow (PI) 8) (sqrt 8))) (* b (sqrt 2)))) (* 1/25194240000 (* (pow (PI) 4) (- (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2)))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2)))))))))))) (* (pow a 2) (- (+ (* -1/2 (- (* -1/51018336000000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 6) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (* (sqrt 8) (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))))))) (* (pow b 3) (pow (sqrt 2) 3)))))) (/ (* y-scale (* (sqrt 8) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* b (sqrt 2)))) (+ (* -1/64800 (* (pow (PI) 2) (- (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2)))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))))) (* 1/816293376000000 (/ (* y-scale (* (pow (PI) 6) (sqrt 8))) (* b (sqrt 2)))))))))))))))
#s(approx (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (* 1/32400 (/ (* (pow angle 2) (* y-scale (* (pow (PI) 2) (sqrt 8)))) (* b (sqrt 2))))))
#s(approx (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (* y-scale (* (pow (PI) 2) (sqrt 8))) (* b (sqrt 2)))) (* (pow angle 2) (- (+ (* -1/2099520000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))))))))
#s(approx (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (* y-scale (* (pow (PI) 2) (sqrt 8))) (* b (sqrt 2)))) (* (pow angle 2) (- (+ (* -1/2099520000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (+ (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2)))) (* (pow angle 2) (- (+ (* -1/2 (- (* -1/51018336000000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 6) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (* (sqrt 8) (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))))))) (* (pow b 3) (pow (sqrt 2) 3)))))) (/ (* y-scale (* (sqrt 8) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* b (sqrt 2)))) (+ (* -1/64800 (* (pow (PI) 2) (- (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2)))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))))) (* 1/816293376000000 (/ (* y-scale (* (pow (PI) 6) (sqrt 8))) (* b (sqrt 2))))))))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))))))))
#s(approx (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (* y-scale (* (pow (PI) 2) (sqrt 8))) (* b (sqrt 2)))) (* (pow angle 2) (- (+ (* -1/2099520000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (+ (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2)))) (* (pow angle 2) (- (+ (* -1/2 (- (* -1/51018336000000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 6) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (* (sqrt 8) (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))))))) (* (pow b 3) (pow (sqrt 2) 3)))))) (+ (* (pow angle 2) (- (+ (* -1/2 (- (/ (* (pow a 2) (* y-scale (* (sqrt 8) (+ (* 1/9917964518400000000 (pow (PI) 8)) (* 1/16200 (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))))))) (* (pow b 3) (pow (sqrt 2) 3))) (+ (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (* (sqrt 8) (+ (* 1/25194240000 (pow (PI) 4)) (+ (* 1/12597120000 (pow (PI) 4)) (+ (* 1/4199040000 (pow (PI) 4)) (* 1/2099520000 (pow (PI) 4))))))))) (* (pow b 3) (pow (sqrt 2) 3)))) (* (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))) (- (* -1/51018336000000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 6) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (* (sqrt 8) (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))))))) (* (pow b 3) (pow (sqrt 2) 3))))))))) (/ (* y-scale (* (sqrt 8) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))) (* b (sqrt 2)))) (+ (* -1/64800 (* (pow (PI) 2) (- (/ (* y-scale (* (sqrt 8) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* b (sqrt 2))) (+ (* -1/64800 (* (pow (PI) 2) (- (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2)))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))))) (* 1/816293376000000 (/ (* y-scale (* (pow (PI) 6) (sqrt 8))) (* b (sqrt 2)))))))) (+ (* -1/793437161472000000000 (/ (* y-scale (* (pow (PI) 8) (sqrt 8))) (* b (sqrt 2)))) (* 1/25194240000 (* (pow (PI) 4) (- (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2)))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))))))))) (/ (* y-scale (* (sqrt 8) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* b (sqrt 2))))) (+ (* -1/64800 (* (pow (PI) 2) (- (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2)))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))))) (* 1/816293376000000 (/ (* y-scale (* (pow (PI) 6) (sqrt 8))) (* b (sqrt 2))))))))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))))))))
#s(approx (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3))) #s(hole binary64 (* 1/1049760000 (/ (* (pow a 2) (* (pow angle 4) (* y-scale (* (pow (PI) 4) (sqrt 8))))) (* (pow b 3) (pow (sqrt 2) 3))))))
#s(approx (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3))) #s(hole binary64 (* (pow angle 4) (+ (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* (pow angle 2) (- (* -1/51018336000000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 6) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (* (sqrt 8) (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))))))) (* (pow b 3) (pow (sqrt 2) 3))))))))))
#s(approx (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3))) #s(hole binary64 (* (pow angle 4) (+ (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* (pow angle 2) (- (+ (* -1/51018336000000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 6) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* (pow angle 2) (- (/ (* (pow a 2) (* y-scale (* (sqrt 8) (+ (* 1/9917964518400000000 (pow (PI) 8)) (* 1/16200 (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))))))) (* (pow b 3) (pow (sqrt 2) 3))) (+ (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (* (sqrt 8) (+ (* 1/25194240000 (pow (PI) 4)) (+ (* 1/12597120000 (pow (PI) 4)) (+ (* 1/4199040000 (pow (PI) 4)) (* 1/2099520000 (pow (PI) 4))))))))) (* (pow b 3) (pow (sqrt 2) 3)))) (* (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))) (- (* -1/51018336000000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 6) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (* (sqrt 8) (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))))))) (* (pow b 3) (pow (sqrt 2) 3)))))))))) (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (* (sqrt 8) (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))))))) (* (pow b 3) (pow (sqrt 2) 3))))))))))
#s(approx (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3))) #s(hole binary64 (* (pow angle 4) (+ (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* (pow angle 2) (- (+ (* -1/51018336000000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 6) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* (pow angle 2) (- (+ (* (pow angle 2) (- (/ (* (pow a 2) (* y-scale (* (sqrt 8) (+ (* -1/1574640000 (* (pow (PI) 4) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* 1/16200 (* (pow (PI) 2) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))))))) (* (pow b 3) (pow (sqrt 2) 3))) (+ (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (* (sqrt 8) (+ (* -1/64800 (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (+ (* -1/408146688000000 (pow (PI) 6)) (+ (* -1/12244400640000000 (pow (PI) 6)) (* -1/24488801280000000 (pow (PI) 6))))))))) (* (pow b 3) (pow (sqrt 2) 3)))) (+ (* (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))) (- (/ (* (pow a 2) (* y-scale (* (sqrt 8) (+ (* 1/9917964518400000000 (pow (PI) 8)) (* 1/16200 (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))))))) (* (pow b 3) (pow (sqrt 2) 3))) (+ (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (* (sqrt 8) (+ (* 1/25194240000 (pow (PI) 4)) (+ (* 1/12597120000 (pow (PI) 4)) (+ (* 1/4199040000 (pow (PI) 4)) (* 1/2099520000 (pow (PI) 4))))))))) (* (pow b 3) (pow (sqrt 2) 3)))) (* (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))) (- (* -1/51018336000000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 6) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (* (sqrt 8) (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))))))) (* (pow b 3) (pow (sqrt 2) 3))))))))) (* (+ (* 1/25194240000 (pow (PI) 4)) (+ (* 1/12597120000 (pow (PI) 4)) (+ (* 1/4199040000 (pow (PI) 4)) (* 1/2099520000 (pow (PI) 4))))) (- (* -1/51018336000000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 6) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (* (sqrt 8) (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))))))) (* (pow b 3) (pow (sqrt 2) 3)))))))))) (/ (* (pow a 2) (* y-scale (* (sqrt 8) (+ (* 1/9917964518400000000 (pow (PI) 8)) (* 1/16200 (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))))))) (* (pow b 3) (pow (sqrt 2) 3)))) (+ (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (* (sqrt 8) (+ (* 1/25194240000 (pow (PI) 4)) (+ (* 1/12597120000 (pow (PI) 4)) (+ (* 1/4199040000 (pow (PI) 4)) (* 1/2099520000 (pow (PI) 4))))))))) (* (pow b 3) (pow (sqrt 2) 3)))) (* (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))) (- (* -1/51018336000000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 6) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (* (sqrt 8) (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))))))) (* (pow b 3) (pow (sqrt 2) 3)))))))))) (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (* (sqrt 8) (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))))))) (* (pow b 3) (pow (sqrt 2) 3))))))))))
#s(approx (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) #s(hole binary64 (* 1/1049760000 (* (pow a 2) (* (pow angle 4) (* y-scale (* (pow (PI) 4) (sqrt 8))))))))
#s(approx (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) #s(hole binary64 (* (pow angle 4) (+ (* -1/51018336000000 (* (pow a 2) (* (pow angle 2) (* y-scale (* (pow (PI) 6) (sqrt 8)))))) (* 1/1049760000 (* (pow a 2) (* y-scale (* (pow (PI) 4) (sqrt 8)))))))))
#s(approx (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) #s(hole binary64 (* (pow angle 4) (+ (* 1/1049760000 (* (pow a 2) (* y-scale (* (pow (PI) 4) (sqrt 8))))) (* (pow angle 2) (+ (* -1/51018336000000 (* (pow a 2) (* y-scale (* (pow (PI) 6) (sqrt 8))))) (* (pow a 2) (* (pow angle 2) (* y-scale (* (sqrt 8) (+ (* 1/9917964518400000000 (pow (PI) 8)) (* 1/16200 (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))))))))))))))
#s(approx (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) #s(hole binary64 (* (pow angle 4) (+ (* 1/1049760000 (* (pow a 2) (* y-scale (* (pow (PI) 4) (sqrt 8))))) (* (pow angle 2) (+ (* -1/51018336000000 (* (pow a 2) (* y-scale (* (pow (PI) 6) (sqrt 8))))) (* (pow angle 2) (+ (* (pow a 2) (* y-scale (* (sqrt 8) (+ (* 1/9917964518400000000 (pow (PI) 8)) (* 1/16200 (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))))))) (* (pow a 2) (* (pow angle 2) (* y-scale (* (sqrt 8) (+ (* -1/1574640000 (* (pow (PI) 4) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* 1/16200 (* (pow (PI) 2) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))))))))))))))))
#s(approx (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) #s(hole binary64 (* 1/1049760000 (* (pow angle 4) (* y-scale (* (pow (PI) 4) (sqrt 8)))))))
#s(approx (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) #s(hole binary64 (* (pow angle 4) (+ (* -1/51018336000000 (* (pow angle 2) (* y-scale (* (pow (PI) 6) (sqrt 8))))) (* 1/1049760000 (* y-scale (* (pow (PI) 4) (sqrt 8))))))))
#s(approx (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) #s(hole binary64 (* (pow angle 4) (+ (* 1/1049760000 (* y-scale (* (pow (PI) 4) (sqrt 8)))) (* (pow angle 2) (+ (* -1/51018336000000 (* y-scale (* (pow (PI) 6) (sqrt 8)))) (* (pow angle 2) (* y-scale (* (sqrt 8) (+ (* 1/9917964518400000000 (pow (PI) 8)) (* 1/16200 (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))))))))))))))
#s(approx (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) #s(hole binary64 (* (pow angle 4) (+ (* 1/1049760000 (* y-scale (* (pow (PI) 4) (sqrt 8)))) (* (pow angle 2) (+ (* -1/51018336000000 (* y-scale (* (pow (PI) 6) (sqrt 8)))) (* (pow angle 2) (+ (* y-scale (* (sqrt 8) (+ (* 1/9917964518400000000 (pow (PI) 8)) (* 1/16200 (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))))))) (* (pow angle 2) (* y-scale (* (sqrt 8) (+ (* -1/1574640000 (* (pow (PI) 4) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* 1/16200 (* (pow (PI) 2) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8)))))))))))))))))
#s(approx (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)) #s(hole binary64 (* 1/1049760000 (* (pow angle 4) (* (pow (PI) 4) (sqrt 8))))))
#s(approx (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)) #s(hole binary64 (* (pow angle 4) (+ (* -1/51018336000000 (* (pow angle 2) (* (pow (PI) 6) (sqrt 8)))) (* 1/1049760000 (* (pow (PI) 4) (sqrt 8)))))))
#s(approx (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)) #s(hole binary64 (* (pow angle 4) (+ (* 1/1049760000 (* (pow (PI) 4) (sqrt 8))) (* (pow angle 2) (+ (* -1/51018336000000 (* (pow (PI) 6) (sqrt 8))) (* (pow angle 2) (* (sqrt 8) (+ (* 1/9917964518400000000 (pow (PI) 8)) (* 1/16200 (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))))))))))))
#s(approx (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)) #s(hole binary64 (* (pow angle 4) (+ (* 1/1049760000 (* (pow (PI) 4) (sqrt 8))) (* (pow angle 2) (+ (* -1/51018336000000 (* (pow (PI) 6) (sqrt 8))) (* (pow angle 2) (+ (* (sqrt 8) (+ (* 1/9917964518400000000 (pow (PI) 8)) (* 1/16200 (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))))) (* (pow angle 2) (* (sqrt 8) (+ (* -1/1574640000 (* (pow (PI) 4) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* 1/16200 (* (pow (PI) 2) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))))))))))))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 4) #s(hole binary64 (* 1/1049760000 (* (pow angle 4) (pow (PI) 4)))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 4) #s(hole binary64 (* (pow angle 4) (+ (* -1/51018336000000 (* (pow angle 2) (pow (PI) 6))) (* 1/1049760000 (pow (PI) 4))))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 4) #s(hole binary64 (* (pow angle 4) (+ (* 1/1049760000 (pow (PI) 4)) (* (pow angle 2) (+ (* -1/51018336000000 (pow (PI) 6)) (* (pow angle 2) (+ (* 1/9917964518400000000 (pow (PI) 8)) (* 1/16200 (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))))))))))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 4) #s(hole binary64 (* (pow angle 4) (+ (* 1/1049760000 (pow (PI) 4)) (* (pow angle 2) (+ (* -1/51018336000000 (pow (PI) 6)) (* (pow angle 2) (+ (* 1/9917964518400000000 (pow (PI) 8)) (+ (* 1/16200 (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* (pow angle 2) (+ (* -1/1574640000 (* (pow (PI) 4) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* 1/16200 (* (pow (PI) 2) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))))))))))))))
#s(approx (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)) #s(hole binary64 (* (pow b 3) (pow (sqrt 2) 3))))
#s(approx (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)) #s(hole binary64 (+ (* (pow angle 2) (* (pow b 3) (* (pow (sqrt 2) 3) (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2)))))) (* (pow b 3) (pow (sqrt 2) 3)))))
#s(approx (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)) #s(hole binary64 (+ (* (pow angle 2) (+ (* (pow angle 2) (* (pow b 3) (* (pow (sqrt 2) 3) (+ (* 1/25194240000 (pow (PI) 4)) (+ (* 1/12597120000 (pow (PI) 4)) (+ (* 1/4199040000 (pow (PI) 4)) (* 1/2099520000 (pow (PI) 4)))))))) (* (pow b 3) (* (pow (sqrt 2) 3) (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))))))) (* (pow b 3) (pow (sqrt 2) 3)))))
#s(approx (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)) #s(hole binary64 (+ (* (pow angle 2) (+ (* (pow angle 2) (+ (* (pow angle 2) (* (pow b 3) (* (pow (sqrt 2) 3) (+ (* -1/64800 (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (+ (* -1/408146688000000 (pow (PI) 6)) (+ (* -1/12244400640000000 (pow (PI) 6)) (* -1/24488801280000000 (pow (PI) 6)))))))) (* (pow b 3) (* (pow (sqrt 2) 3) (+ (* 1/25194240000 (pow (PI) 4)) (+ (* 1/12597120000 (pow (PI) 4)) (+ (* 1/4199040000 (pow (PI) 4)) (* 1/2099520000 (pow (PI) 4))))))))) (* (pow b 3) (* (pow (sqrt 2) 3) (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))))))) (* (pow b 3) (pow (sqrt 2) 3)))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3) #s(hole binary64 (pow (sqrt 2) 3)))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3) #s(hole binary64 (+ (* (pow angle 2) (* (pow (sqrt 2) 3) (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))))) (pow (sqrt 2) 3))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3) #s(hole binary64 (+ (* (pow angle 2) (+ (* (pow angle 2) (* (pow (sqrt 2) 3) (+ (* 1/25194240000 (pow (PI) 4)) (+ (* 1/12597120000 (pow (PI) 4)) (+ (* 1/4199040000 (pow (PI) 4)) (* 1/2099520000 (pow (PI) 4))))))) (* (pow (sqrt 2) 3) (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2)))))) (pow (sqrt 2) 3))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3) #s(hole binary64 (+ (* (pow angle 2) (+ (* (pow angle 2) (+ (* (pow angle 2) (* (pow (sqrt 2) 3) (+ (* -1/64800 (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (+ (* -1/408146688000000 (pow (PI) 6)) (+ (* -1/12244400640000000 (pow (PI) 6)) (* -1/24488801280000000 (pow (PI) 6))))))) (* (pow (sqrt 2) 3) (+ (* 1/25194240000 (pow (PI) 4)) (+ (* 1/12597120000 (pow (PI) 4)) (+ (* 1/4199040000 (pow (PI) 4)) (* 1/2099520000 (pow (PI) 4)))))))) (* (pow (sqrt 2) 3) (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2)))))) (pow (sqrt 2) 3))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) #s(hole binary64 (sqrt 2)))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) #s(hole binary64 (+ (sqrt 2) (* -1/64800 (* (pow angle 2) (* (pow (PI) 2) (sqrt 2)))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) #s(hole binary64 (+ (sqrt 2) (* (pow angle 2) (+ (* -1/64800 (* (pow (PI) 2) (sqrt 2))) (* 1/25194240000 (* (pow angle 2) (* (pow (PI) 4) (sqrt 2)))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) #s(hole binary64 (+ (sqrt 2) (* (pow angle 2) (+ (* -1/64800 (* (pow (PI) 2) (sqrt 2))) (* (pow angle 2) (+ (* -1/24488801280000000 (* (pow angle 2) (* (pow (PI) 6) (sqrt 2)))) (* 1/25194240000 (* (pow (PI) 4) (sqrt 2))))))))))
#s(approx (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))) #s(hole binary64 (* 1/32400 (/ (* (pow angle 2) (* y-scale (* (pow (PI) 2) (sqrt 8)))) (* b (sqrt 2))))))
#s(approx (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (* y-scale (* (pow (PI) 2) (sqrt 8))) (* b (sqrt 2)))) (* (pow angle 2) (- (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2)))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))))))))
#s(approx (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (* y-scale (* (pow (PI) 2) (sqrt 8))) (* b (sqrt 2)))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2)))) (* (pow angle 2) (- (/ (* y-scale (* (sqrt 8) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* b (sqrt 2))) (+ (* -1/64800 (* (pow (PI) 2) (- (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2)))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))))) (* 1/816293376000000 (/ (* y-scale (* (pow (PI) 6) (sqrt 8))) (* b (sqrt 2)))))))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))))))))
#s(approx (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (* y-scale (* (pow (PI) 2) (sqrt 8))) (* b (sqrt 2)))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2)))) (* (pow angle 2) (- (+ (* (pow angle 2) (- (/ (* y-scale (* (sqrt 8) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))) (* b (sqrt 2))) (+ (* -1/64800 (* (pow (PI) 2) (- (/ (* y-scale (* (sqrt 8) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* b (sqrt 2))) (+ (* -1/64800 (* (pow (PI) 2) (- (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2)))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))))) (* 1/816293376000000 (/ (* y-scale (* (pow (PI) 6) (sqrt 8))) (* b (sqrt 2)))))))) (+ (* -1/793437161472000000000 (/ (* y-scale (* (pow (PI) 8) (sqrt 8))) (* b (sqrt 2)))) (* 1/25194240000 (* (pow (PI) 4) (- (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2)))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))))))))) (/ (* y-scale (* (sqrt 8) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* b (sqrt 2)))) (+ (* -1/64800 (* (pow (PI) 2) (- (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2)))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))))) (* 1/816293376000000 (/ (* y-scale (* (pow (PI) 6) (sqrt 8))) (* b (sqrt 2)))))))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))))))))
#s(approx (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) #s(hole binary64 (* 1/32400 (* (pow angle 2) (* y-scale (* (pow (PI) 2) (sqrt 8)))))))
#s(approx (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) #s(hole binary64 (* (pow angle 2) (+ (* -1/3149280000 (* (pow angle 2) (* y-scale (* (pow (PI) 4) (sqrt 8))))) (* 1/32400 (* y-scale (* (pow (PI) 2) (sqrt 8))))))))
#s(approx (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* y-scale (* (pow (PI) 2) (sqrt 8)))) (* (pow angle 2) (+ (* -1/3149280000 (* y-scale (* (pow (PI) 4) (sqrt 8)))) (* (pow angle 2) (* y-scale (* (sqrt 8) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))))))))))
#s(approx (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* y-scale (* (pow (PI) 2) (sqrt 8)))) (* (pow angle 2) (+ (* -1/3149280000 (* y-scale (* (pow (PI) 4) (sqrt 8)))) (* (pow angle 2) (+ (* y-scale (* (sqrt 8) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* (pow angle 2) (* y-scale (* (sqrt 8) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))))))))))))
#s(approx (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)) #s(hole binary64 (* 1/32400 (* (pow angle 2) (* (pow (PI) 2) (sqrt 8))))))
#s(approx (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)) #s(hole binary64 (* (pow angle 2) (+ (* -1/3149280000 (* (pow angle 2) (* (pow (PI) 4) (sqrt 8)))) (* 1/32400 (* (pow (PI) 2) (sqrt 8)))))))
#s(approx (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* (pow (PI) 2) (sqrt 8))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow (PI) 4) (sqrt 8))) (* (pow angle 2) (* (sqrt 8) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))))))))))
#s(approx (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* (pow (PI) 2) (sqrt 8))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow (PI) 4) (sqrt 8))) (* (pow angle 2) (+ (* (sqrt 8) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow angle 2) (* (sqrt 8) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8)))))))))))))
#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 (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) #s(hole binary64 (* b (sqrt 2))))
#s(approx (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) #s(hole binary64 (+ (* -1/64800 (* (pow angle 2) (* b (* (pow (PI) 2) (sqrt 2))))) (* b (sqrt 2)))))
#s(approx (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) #s(hole binary64 (+ (* b (sqrt 2)) (* (pow angle 2) (+ (* -1/64800 (* b (* (pow (PI) 2) (sqrt 2)))) (* 1/25194240000 (* (pow angle 2) (* b (* (pow (PI) 4) (sqrt 2))))))))))
#s(approx (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) #s(hole binary64 (+ (* b (sqrt 2)) (* (pow angle 2) (+ (* -1/64800 (* b (* (pow (PI) 2) (sqrt 2)))) (* (pow angle 2) (+ (* -1/24488801280000000 (* (pow angle 2) (* b (* (pow (PI) 6) (sqrt 2))))) (* 1/25194240000 (* b (* (pow (PI) 4) (sqrt 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (cos (* 1/180 (* angle (PI))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 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 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 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 (sqrt (+ (* 2 (/ (pow (* 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 (sqrt (+ (* 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)))) (sqrt 2)) #s(hole binary64 (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (sin (* 1/180 (* angle (PI))))))
#s(approx (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4)) #s(hole binary64 (* 4 (* y-scale (cos (* 1/180 (* angle (PI))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) 4) #s(hole binary64 (* 4 (cos (* 1/180 (* angle (PI)))))))
#s(approx (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) #s(hole binary64 (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))))
#s(approx (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)) #s(hole binary64 (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 4) #s(hole binary64 (pow (sin (* 1/180 (* angle (PI)))) 4)))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3) #s(hole binary64 (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) #s(hole binary64 (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))
#s(approx (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) #s(hole binary64 (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))))
#s(approx (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)) #s(hole binary64 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (pow (sin (* 1/180 (* angle (PI)))) 2)))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/8 (* (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* 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 a 2) (pow (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 (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 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) (+ (* 1/8 (* (* y-scale (* (sqrt 8) (+ (* 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 a 2) (pow (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 (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 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) (+ (* 1/8 (* (* y-scale (* (sqrt 8) (+ (* 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 a 2) (pow (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 (/ 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) (+ (* 1/8 (* (* y-scale (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (* -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 (cos (* 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 (/ (* (+ (* 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 a 2) (pow (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 (cos (* 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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 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)))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* x-scale (* y-scale (sqrt 8))) #s(hole binary64 (* x-scale (* y-scale (sqrt 8)))))
#s(approx x-scale #s(hole binary64 x-scale))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* (/ 1 x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 4)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 6)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 4)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 4)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 6)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 4)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* (/ 1 x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/8 (* (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* 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))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow y-scale 2) (+ (* 1/8 (* (* x-scale (* (sqrt 8) (+ (* 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)))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow y-scale 2) (+ (* 1/8 (* (* x-scale (* (sqrt 8) (+ (* 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)))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* 1/8 (* (* x-scale (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (* -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 (/ (* (+ (* 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)))) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (* y-scale (sqrt 8)) #s(hole binary64 (* y-scale (sqrt 8))))
#s(approx y-scale #s(hole binary64 y-scale))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) #s(hole binary64 (* y-scale (+ (* 4 (* b (cos (* 1/180 (* angle (PI)))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) #s(hole binary64 (* (pow a 2) (* y-scale (+ (* -1/2 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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))))))))) (pow y-scale 4)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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))))))))) (pow y-scale 6)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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))))))))) (pow y-scale 4)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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))))))))) (pow y-scale 4)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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))))))))) (pow y-scale 6)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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))))))))) (pow y-scale 4)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) #s(hole binary64 (* -1 (* y-scale (+ (* -4 (* b (cos (* 1/180 (* angle (PI)))))) (* (pow a 2) (+ (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (* 1/2 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))))
#s(approx (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) #s(hole binary64 (* -1 (* (pow a 2) (* y-scale (+ (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (* 1/2 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))))))))
#s(approx (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (* -1 (* y-scale (+ (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (* 1/2 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))
Calls

15 calls:

TimeVariablePointExpression
55.0ms
y-scale
@-inf
((/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (* y-scale (sqrt 8)) y-scale (sqrt 8) 8 (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* a (sin (* 1/180 (* angle (PI))))) (* 1/180 (* a (* angle (PI)))) 1/180 (* a (* angle (PI))) a (* angle (PI)) angle (PI) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* b (cos (* 1/180 (* angle (PI))))) b (cos (* 1/180 (* angle (PI)))) (* 1/180 (* angle (PI))) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* 1/4 (* b (* y-scale 4))) (* b y-scale) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))))) -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))))) (* x-scale (* y-scale (sqrt 8))) x-scale (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (sin (* 1/180 (* angle (PI)))) (sqrt 2) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))))) (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4)) (* (cos (* 1/180 (* angle (PI)))) 4) 4 (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3))) (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)) (pow (sin (* 1/180 (* angle (PI)))) 4) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)) (* (* b b) b) (* b b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)) (pow (sin (* 1/180 (* angle (PI)))) 2) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))
40.0ms
a
@-inf
((/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (* y-scale (sqrt 8)) y-scale (sqrt 8) 8 (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* a (sin (* 1/180 (* angle (PI))))) (* 1/180 (* a (* angle (PI)))) 1/180 (* a (* angle (PI))) a (* angle (PI)) angle (PI) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* b (cos (* 1/180 (* angle (PI))))) b (cos (* 1/180 (* angle (PI)))) (* 1/180 (* angle (PI))) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* 1/4 (* b (* y-scale 4))) (* b y-scale) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))))) -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))))) (* x-scale (* y-scale (sqrt 8))) x-scale (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (sin (* 1/180 (* angle (PI)))) (sqrt 2) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))))) (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4)) (* (cos (* 1/180 (* angle (PI)))) 4) 4 (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3))) (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)) (pow (sin (* 1/180 (* angle (PI)))) 4) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)) (* (* b b) b) (* b b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)) (pow (sin (* 1/180 (* angle (PI)))) 2) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))
34.0ms
angle
@-inf
((/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (* y-scale (sqrt 8)) y-scale (sqrt 8) 8 (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* a (sin (* 1/180 (* angle (PI))))) (* 1/180 (* a (* angle (PI)))) 1/180 (* a (* angle (PI))) a (* angle (PI)) angle (PI) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* b (cos (* 1/180 (* angle (PI))))) b (cos (* 1/180 (* angle (PI)))) (* 1/180 (* angle (PI))) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* 1/4 (* b (* y-scale 4))) (* b y-scale) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))))) -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))))) (* x-scale (* y-scale (sqrt 8))) x-scale (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (sin (* 1/180 (* angle (PI)))) (sqrt 2) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))))) (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4)) (* (cos (* 1/180 (* angle (PI)))) 4) 4 (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3))) (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)) (pow (sin (* 1/180 (* angle (PI)))) 4) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)) (* (* b b) b) (* b b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)) (pow (sin (* 1/180 (* angle (PI)))) 2) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))
30.0ms
angle
@0
((/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (* y-scale (sqrt 8)) y-scale (sqrt 8) 8 (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* a (sin (* 1/180 (* angle (PI))))) (* 1/180 (* a (* angle (PI)))) 1/180 (* a (* angle (PI))) a (* angle (PI)) angle (PI) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* b (cos (* 1/180 (* angle (PI))))) b (cos (* 1/180 (* angle (PI)))) (* 1/180 (* angle (PI))) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* 1/4 (* b (* y-scale 4))) (* b y-scale) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))))) -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))))) (* x-scale (* y-scale (sqrt 8))) x-scale (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (sin (* 1/180 (* angle (PI)))) (sqrt 2) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))))) (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4)) (* (cos (* 1/180 (* angle (PI)))) 4) 4 (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3))) (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)) (pow (sin (* 1/180 (* angle (PI)))) 4) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)) (* (* b b) b) (* b b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)) (pow (sin (* 1/180 (* angle (PI)))) 2) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))
20.0ms
angle
@inf
((/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (* y-scale (sqrt 8)) y-scale (sqrt 8) 8 (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* a (sin (* 1/180 (* angle (PI))))) (* 1/180 (* a (* angle (PI)))) 1/180 (* a (* angle (PI))) a (* angle (PI)) angle (PI) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* b (cos (* 1/180 (* angle (PI))))) b (cos (* 1/180 (* angle (PI)))) (* 1/180 (* angle (PI))) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* 1/4 (* b (* y-scale 4))) (* b y-scale) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))))) -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))))) (* x-scale (* y-scale (sqrt 8))) x-scale (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (sin (* 1/180 (* angle (PI)))) (sqrt 2) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))))) (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4)) (* (cos (* 1/180 (* angle (PI)))) 4) 4 (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3))) (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)) (pow (sin (* 1/180 (* angle (PI)))) 4) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)) (* (* b b) b) (* b b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)) (pow (sin (* 1/180 (* angle (PI)))) 2) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))

rewrite464.0ms (2.1%)

Memory
20.7MiB live, 561.0MiB allocated; 157ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0286490651
0298084688
0867782714
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
505 → 548
Calls
Call 1
Inputs
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.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 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.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)))))))
#s(literal 1/4 binary64)
(*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.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 y-scale (sqrt.f64 #s(literal 8 binary64)))
y-scale
(sqrt.f64 #s(literal 8 binary64))
#s(literal 8 binary64)
(sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.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)))))
(fma.f64 #s(literal 2 binary64) (pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.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))))
#s(literal 2 binary64)
(pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))) #s(literal 2 binary64))
#s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64)))))
(*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))
#s(literal 1/180 binary64)
(*.f64 a (*.f64 angle (PI.f64)))
a
(*.f64 angle (PI.f64))
angle
(PI.f64)
(*.f64 #s(literal 2 binary64) (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 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
b
(cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))
(*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(approx (* 1/4 (* b (* y-scale 4))) (*.f64 b y-scale)))
#s(approx (* 1/4 (* b (* y-scale 4))) (*.f64 b y-scale))
(*.f64 b y-scale)
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)))))
(*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale))))
#s(literal -1/4 binary64)
(*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)))
(*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))
x-scale
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale))
(/.f64 (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)
(*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))
(sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))
(sqrt.f64 #s(literal 2 binary64))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
(*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
(*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))
(fma.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
(*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
(fma.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
(*.f64 y-scale (*.f64 (cos.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)))) #s(literal 4 binary64))
#s(literal 4 binary64)
(*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))
(*.f64 a a)
(fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))
#s(literal -1/2 binary64)
(/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))
(*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))))
(*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))
(*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))
(pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))
(*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))
(*.f64 (*.f64 b b) b)
(*.f64 b b)
(pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))
(*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))
#s(literal 3 binary64)
(/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))
(*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))
(pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))
(*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (* (pow a 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (* (pow a 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (pow a 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* 1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow a 2) (+ (* -1/8 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/4 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow a 2) (+ (* 1/4 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (* (pow a 2) (+ (* -1/8 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/8 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 5) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow a 2) (+ (* (pow a 2) (+ (* -1/2 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 5) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) (* (pow a 2) (+ (* -1/2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) (* (pow a 2) (+ (* (pow a 2) (+ (* -1/2 (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 6)) (* (pow b 5) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) #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))))))
#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 (* 1/180 (* a (* angle (PI)))) #s(hole binary64 (* 1/180 (* a (* angle (PI))))))
#s(approx (* a (* angle (PI))) #s(hole binary64 (* a (* angle (PI)))))
#s(approx a #s(hole binary64 a))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* -1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow a 2) (+ (* -1/4 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (* 1/8 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow a 2) (+ (* -1/4 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (* (pow a 2) (+ (* -1/8 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 5) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (* 1/8 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow a 2) (+ (* (pow a 2) (+ (* -1/2 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 5) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (/ (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale)))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (+ (/ (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* b (* x-scale (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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) (+ (* -1/2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 3) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* b (* x-scale (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) (/ (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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) (+ (* (pow a 2) (+ (* -1/2 (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (* (pow b 3) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (* 1/2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 6)) (* (pow b 5) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5)))))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* b (* x-scale (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) (/ (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale))))
#s(approx (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale) #s(hole binary64 (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale)))
#s(approx (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) #s(hole binary64 (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))
#s(approx (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))
#s(approx (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (/ (+ (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))) a)))
#s(approx (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))) #s(hole binary64 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) #s(hole binary64 (* 4 (* b (* y-scale (cos (* 1/180 (* angle (PI)))))))))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) #s(hole binary64 (+ (* 4 (* b (* y-scale (cos (* 1/180 (* angle (PI))))))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) #s(hole binary64 (+ (* 4 (* b (* y-scale (cos (* 1/180 (* angle (PI))))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) #s(hole binary64 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))
#s(approx (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) #s(hole binary64 (* (pow a 2) (+ (* -1/2 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* a a) #s(hole binary64 (pow a 2)))
#s(approx (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))
#s(approx (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3))) #s(hole binary64 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))
#s(approx (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) #s(hole binary64 (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 4)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 6)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 4)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* 1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (+ (* -1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (+ (* -1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/8 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* a (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* a (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (pow (cos (* 1/180 (* angle (PI)))) 6)) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (* (pow a 2) (+ (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow a 2))) (* 2 (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (* -1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* -1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (* -1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (* 1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (* -1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (+ (* -1/8 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (* 1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale)))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (/ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* x-scale (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (+ (/ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* x-scale (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (+ (* 1/2 (/ (* (pow b 6) (pow (cos (* 1/180 (* angle (PI)))) 6)) (* (pow a 6) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5)))))) (+ (/ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* x-scale (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))
#s(approx (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (* a (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) #s(hole binary64 (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) #s(hole binary64 (* (pow a 4) (+ (* -1/2 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* (pow a 2) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) #s(hole binary64 (* (pow a 4) (+ (* -1/2 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 4 (/ (* b (* y-scale (cos (* 1/180 (* angle (PI)))))) (pow a 4))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* (pow a 2) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) #s(hole binary64 (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))))
#s(approx (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) #s(hole binary64 (* (pow a 4) (+ (* -1/2 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* (pow a 2) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (* -1/2 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))))
#s(approx (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (* (pow a 2) (+ (* -1/2 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* (pow a 2) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 4)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 6)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 4)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (+ (* -1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (+ (* -1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/8 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* a (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* a (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (pow (cos (* 1/180 (* angle (PI)))) 6)) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* 1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (* -1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* -1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (* -1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (* 1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (* -1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (+ (* -1/8 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (* 1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (/ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* x-scale (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (+ (/ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* x-scale (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (+ (* 1/2 (/ (* (pow b 6) (pow (cos (* 1/180 (* angle (PI)))) 6)) (* (pow a 6) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5)))))) (+ (/ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* x-scale (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))))
#s(approx (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (* -1 (* a (+ (* -1 (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (* -1 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 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) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))) (sqrt (/ 1 (+ (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 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) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (sqrt (/ 1 (+ (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 (cos (* 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) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))) (sqrt (/ 1 (+ (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 (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 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow b 2) (+ (* -1/8 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/4 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow b 2) (+ (* 1/4 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (* (pow b 2) (+ (* -1/8 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/8 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 5) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow b 2) (+ (* -1/2 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow b 2) (+ (* (pow b 2) (+ (* -1/2 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 5) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (* (pow b 2) (+ (* -1/2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (* (pow b 2) (+ (* (pow b 2) (+ (* -1/2 (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 6)) (* (pow a 5) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 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 b #s(hole binary64 b))
#s(approx (* 1/4 (* b (* y-scale 4))) #s(hole binary64 (* b y-scale)))
#s(approx (* b y-scale) #s(hole binary64 (* b y-scale)))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* -1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow b 2) (+ (* -1/4 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (* 1/8 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow b 2) (+ (* -1/4 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (* (pow b 2) (+ (* -1/8 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 5) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (* 1/8 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow b 2) (+ (* -1/2 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow b 2) (+ (* (pow b 2) (+ (* -1/2 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 5) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (+ (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* a (* x-scale (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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) (+ (* -1/2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 3) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* a (* x-scale (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))) (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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) (+ (* (pow b 2) (+ (* -1/2 (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (* (pow a 3) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (* 1/2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 6)) (* (pow a 5) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5)))))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* a (* x-scale (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))) (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale))))
#s(approx (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))) (/ (* (pow a 2) (* (pow b 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))))) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))) (pow b 3))))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))) (* (pow b 2) (+ (* 4 (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI))))))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) (pow b 3))))
#s(approx (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))) (/ (* (pow a 2) (* (pow b 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))))) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))) (pow b 3))))
#s(approx (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))) (/ (* (pow b 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))) (pow b 3))))
#s(approx (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)) #s(hole binary64 (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))
#s(approx (* (* b b) b) #s(hole binary64 (pow b 3)))
#s(approx (* b b) #s(hole binary64 (pow b 2)))
#s(approx (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))) #s(hole binary64 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))
#s(approx (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) #s(hole binary64 (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 4)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 6)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 4)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (+ (* 1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (+ (* -1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (+ (* -1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/8 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* 1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* b (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* b (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (pow (sin (* 1/180 (* angle (PI)))) 6)) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (* (pow b 2) (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow b 2))) (* 2 (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (* -1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* -1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (* -1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (* 1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (* -1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (+ (* -1/8 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (* 1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (/ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (+ (/ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (+ (* 1/2 (/ (* (pow a 6) (pow (sin (* 1/180 (* angle (PI)))) 6)) (* (pow b 6) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5)))))) (+ (/ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (* (pow b 2) (+ (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (pow b 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) #s(hole binary64 (* b (+ (* 4 (* y-scale (cos (* 1/180 (* angle (PI)))))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) #s(hole binary64 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 4 (* y-scale (cos (* 1/180 (* angle (PI)))))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))) b)))
#s(approx (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))) b)))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 4)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 6)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 4)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (+ (* 1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (+ (* -1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (+ (* -1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/8 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* 1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* b (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* b (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (pow (sin (* 1/180 (* angle (PI)))) 6)) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* 1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (* -1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* -1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (* -1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (* 1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (* -1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (+ (* -1/8 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (* 1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (/ (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (/ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (+ (/ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) (+ (* 1/2 (/ (* (pow a 6) (pow (sin (* 1/180 (* angle (PI)))) 6)) (* (pow b 6) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5)))))) (+ (/ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) x-scale) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) #s(hole binary64 (* -1 (* b (+ (* -4 (* y-scale (cos (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) #s(hole binary64 (* -1 (* b (+ (* -4 (* y-scale (cos (* 1/180 (* angle (PI)))))) (+ (* -1 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (* 1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))))))))
#s(approx (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))) (* 1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) b))))
#s(approx (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))) (* 1/2 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))) b))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))))))) (* b (sqrt 2)))) (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* b (sqrt 2)))) (* 1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* b (sqrt 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* 1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* 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/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (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 b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))))) (* 1/2 (/ (* (pow x-scale 2) (* (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* b (sqrt 2)))) (* 1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/8 (/ (* (pow angle 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2))))))) (* b (sqrt 2)))) (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* y-scale (* (sqrt 8) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))))) (* b (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* y-scale (* (sqrt 8) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* y-scale (* (sqrt 8) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* 1/8 (/ (* y-scale (* (sqrt 8) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2))))))) (* b (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* y-scale (* (sqrt 8) (- (+ (* 2 (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* 2 (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))))) (* 1/2 (/ (* (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2)))))) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* b (* y-scale (* (sqrt 2) (sqrt 8))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* 1/2 (/ (* (pow angle 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2))))))) (* b (sqrt 2)))) (* b (* y-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* b (* y-scale (* (sqrt 2) (sqrt 8)))) (* (pow angle 2) (+ (* 1/2 (/ (* y-scale (* (sqrt 8) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))))) (* b (sqrt 2)))) (* 1/2 (/ (* (pow angle 2) (* y-scale (* (sqrt 8) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* b (* y-scale (* (sqrt 2) (sqrt 8)))) (* (pow angle 2) (+ (* 1/2 (/ (* y-scale (* (sqrt 8) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* 1/2 (/ (* y-scale (* (sqrt 8) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2))))))) (* b (sqrt 2)))) (* 1/2 (/ (* (pow angle 2) (* y-scale (* (sqrt 8) (- (+ (* 2 (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* 2 (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))))) (* 1/2 (/ (* (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2)))))) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* b (sqrt 2))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* 1/2 (/ (* (pow angle 2) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2))))) (* b (sqrt 2)))) (* b (sqrt 2)))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* b (sqrt 2)) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2)))))) (* b (sqrt 2)))) (* 1/2 (/ (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) (* b (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* b (sqrt 2)) (* (pow angle 2) (+ (* 1/2 (/ (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (- (+ (* 2 (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* 2 (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))))) (* 1/2 (/ (* (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2)))))) (* (pow b 2) (pow (sqrt 2) 2)))))) (* b (sqrt 2)))) (* 1/2 (/ (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2))))) (* b (sqrt 2)))))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (* 2 (pow b 2))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (+ (* 2 (pow b 2)) (* (pow angle 2) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (+ (* 2 (pow b 2)) (* (pow angle 2) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (+ (* 1/16200 (* (pow a 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (+ (* 2 (pow b 2)) (* (pow angle 2) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (+ (* 1/16200 (* (pow a 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (+ (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (* (pow angle 2) (+ (* 2 (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* 2 (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))))))))))))))
#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 (* angle (PI)) #s(hole binary64 (* angle (PI))))
#s(approx angle #s(hole binary64 angle))
#s(approx (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (* 2 (pow b 2))))
#s(approx (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (+ (* -1/16200 (* (pow angle 2) (* (pow b 2) (pow (PI) 2)))) (* 2 (pow b 2)))))
#s(approx (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (+ (* 2 (pow b 2)) (* (pow angle 2) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 2 (* (pow angle 2) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))))))
#s(approx (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (+ (* 2 (pow b 2)) (* (pow angle 2) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* 2 (* (pow angle 2) (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))))))
#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 (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 (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* -1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))))) (* b (sqrt 2)))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* -1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* -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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* b (sqrt 2)))) (* -1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))))) (* b (sqrt 2)))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* -1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* -1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* 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)))) (* 1/2 (/ (* (pow x-scale 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)))) (- (+ (* -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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* b (sqrt 2)))) (* -1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* -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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (* y-scale (* (sqrt 2) (sqrt 8))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* 1/2 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))))) (* b (sqrt 2)))) (* b (* y-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* b (* y-scale (* (sqrt 2) (sqrt 8)))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* -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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* b (sqrt 2)))) (* 1/2 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))))) (* b (sqrt 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* b (* y-scale (* (sqrt 2) (sqrt 8)))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* 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)))) (* 1/2 (/ (* (pow x-scale 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)))) (- (+ (* -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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* b (sqrt 2)))) (* 1/2 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* -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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (/ (* b (sqrt 2)) x-scale)))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (+ (* 1/2 (/ (* (pow angle 2) (* x-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)))))) (* b (sqrt 2)))) (/ (* b (sqrt 2)) x-scale))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 angle 2) (+ (* 1/2 (/ (* x-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))))) (* b (sqrt 2)))) (* 1/2 (/ (* (pow angle 2) (* x-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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* b (sqrt 2)))))) (/ (* b (sqrt 2)) x-scale))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 angle 2) (+ (* 1/2 (/ (* x-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))))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* 1/2 (/ (* x-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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2)))))) (* b (sqrt 2)))) (* 1/2 (/ (* (pow angle 2) (* x-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)))) (* 1/2 (/ (* (pow x-scale 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)))) (- (+ (* -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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* (pow b 2) (pow (sqrt 2) 2))))))) (* b (sqrt 2)))))))) (/ (* b (sqrt 2)) x-scale))))
#s(approx (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale) #s(hole binary64 (* 1/180 (/ (* a (* angle (* (PI) (sqrt 2)))) x-scale))))
#s(approx (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale) #s(hole binary64 (* angle (+ (* -1/34992000 (/ (* a (* (pow angle 2) (* (pow (PI) 3) (sqrt 2)))) x-scale)) (* 1/180 (/ (* a (* (PI) (sqrt 2))) x-scale))))))
#s(approx (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale) #s(hole binary64 (* angle (+ (* 1/180 (/ (* a (* (PI) (sqrt 2))) x-scale)) (* (pow angle 2) (+ (* -1/34992000 (/ (* a (* (pow (PI) 3) (sqrt 2))) x-scale)) (* 1/22674816000000 (/ (* a (* (pow angle 2) (* (pow (PI) 5) (sqrt 2)))) x-scale))))))))
#s(approx (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale) #s(hole binary64 (* angle (+ (* 1/180 (/ (* a (* (PI) (sqrt 2))) x-scale)) (* (pow angle 2) (+ (* -1/34992000 (/ (* a (* (pow (PI) 3) (sqrt 2))) x-scale)) (* (pow angle 2) (+ (* -1/30855889612800000000 (/ (* a (* (pow angle 2) (* (pow (PI) 7) (sqrt 2)))) x-scale)) (* 1/22674816000000 (/ (* a (* (pow (PI) 5) (sqrt 2))) x-scale))))))))))
#s(approx (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) #s(hole binary64 (* 1/180 (* a (* angle (* (PI) (sqrt 2)))))))
#s(approx (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) #s(hole binary64 (* angle (+ (* -1/34992000 (* a (* (pow angle 2) (* (pow (PI) 3) (sqrt 2))))) (* 1/180 (* a (* (PI) (sqrt 2))))))))
#s(approx (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) #s(hole binary64 (* angle (+ (* 1/180 (* a (* (PI) (sqrt 2)))) (* (pow angle 2) (+ (* -1/34992000 (* a (* (pow (PI) 3) (sqrt 2)))) (* 1/22674816000000 (* a (* (pow angle 2) (* (pow (PI) 5) (sqrt 2)))))))))))
#s(approx (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) #s(hole binary64 (* angle (+ (* 1/180 (* a (* (PI) (sqrt 2)))) (* (pow angle 2) (+ (* -1/34992000 (* a (* (pow (PI) 3) (sqrt 2)))) (* (pow angle 2) (+ (* -1/30855889612800000000 (* a (* (pow angle 2) (* (pow (PI) 7) (sqrt 2))))) (* 1/22674816000000 (* a (* (pow (PI) 5) (sqrt 2))))))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) #s(hole binary64 (* 1/180 (* angle (* (PI) (sqrt 2))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) #s(hole binary64 (* angle (+ (* -1/34992000 (* (pow angle 2) (* (pow (PI) 3) (sqrt 2)))) (* 1/180 (* (PI) (sqrt 2)))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) #s(hole binary64 (* angle (+ (* 1/180 (* (PI) (sqrt 2))) (* (pow angle 2) (+ (* -1/34992000 (* (pow (PI) 3) (sqrt 2))) (* 1/22674816000000 (* (pow angle 2) (* (pow (PI) 5) (sqrt 2))))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) #s(hole binary64 (* angle (+ (* 1/180 (* (PI) (sqrt 2))) (* (pow angle 2) (+ (* -1/34992000 (* (pow (PI) 3) (sqrt 2))) (* (pow angle 2) (+ (* -1/30855889612800000000 (* (pow angle 2) (* (pow (PI) 7) (sqrt 2)))) (* 1/22674816000000 (* (pow (PI) 5) (sqrt 2)))))))))))
#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 (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (* 180 (/ (pow b 2) (* a (* angle (* (PI) (sqrt 2))))))))
#s(approx (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (/ (+ (* 180 (/ (pow b 2) (* a (* (PI) (sqrt 2))))) (* (pow angle 2) (- (+ (* -1/180 (/ (* (pow b 2) (PI)) (* a (sqrt 2)))) (* 1/180 (* a (* (PI) (sqrt 2))))) (* -1/1080 (/ (* (pow b 2) (PI)) (* a (sqrt 2))))))) angle)))
#s(approx (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (/ (+ (* 180 (/ (pow b 2) (* a (* (PI) (sqrt 2))))) (* (pow angle 2) (- (+ (* -1/180 (/ (* (pow b 2) (PI)) (* a (sqrt 2)))) (+ (* 1/180 (* a (* (PI) (sqrt 2)))) (* (pow angle 2) (- (+ (* -1/34992000 (* a (* (pow (PI) 3) (sqrt 2)))) (* 180 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* a (* (PI) (sqrt 2)))))) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/180 (/ (* (pow b 2) (PI)) (* a (sqrt 2)))) (* -1/1080 (/ (* (pow b 2) (PI)) (* a (sqrt 2))))))) (* 1/699840000 (/ (* (pow b 2) (pow (PI) 3)) (* a (sqrt 2))))))))) (* -1/1080 (/ (* (pow b 2) (PI)) (* a (sqrt 2))))))) angle)))
#s(approx (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (/ (+ (* 180 (/ (pow b 2) (* a (* (PI) (sqrt 2))))) (* (pow angle 2) (- (+ (* -1/180 (/ (* (pow b 2) (PI)) (* a (sqrt 2)))) (+ (* 1/180 (* a (* (PI) (sqrt 2)))) (* (pow angle 2) (- (+ (* -1/34992000 (* a (* (pow (PI) 3) (sqrt 2)))) (+ (* 180 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* a (* (PI) (sqrt 2))))) (* (pow angle 2) (- (+ (* 1/22674816000000 (* a (* (pow (PI) 5) (sqrt 2)))) (* 180 (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* a (* (PI) (sqrt 2)))))) (+ (* -1/194400 (* (pow (PI) 2) (- (* 180 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* a (* (PI) (sqrt 2))))) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/180 (/ (* (pow b 2) (PI)) (* a (sqrt 2)))) (* -1/1080 (/ (* (pow b 2) (PI)) (* a (sqrt 2))))))) (* 1/699840000 (/ (* (pow b 2) (pow (PI) 3)) (* a (sqrt 2)))))))) (+ (* -1/952342272000000 (/ (* (pow b 2) (pow (PI) 5)) (* a (sqrt 2)))) (* 1/125971200000 (* (pow (PI) 4) (- (* -1/180 (/ (* (pow b 2) (PI)) (* a (sqrt 2)))) (* -1/1080 (/ (* (pow b 2) (PI)) (* a (sqrt 2))))))))))))) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/180 (/ (* (pow b 2) (PI)) (* a (sqrt 2)))) (* -1/1080 (/ (* (pow b 2) (PI)) (* a (sqrt 2))))))) (* 1/699840000 (/ (* (pow b 2) (pow (PI) 3)) (* a (sqrt 2))))))))) (* -1/1080 (/ (* (pow b 2) (PI)) (* a (sqrt 2))))))) angle)))
#s(approx (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))) #s(hole binary64 (* 180 (/ (pow b 2) (* a (* angle (* (PI) (sqrt 2))))))))
#s(approx (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))) #s(hole binary64 (/ (+ (* 180 (/ (pow b 2) (* a (* (PI) (sqrt 2))))) (* (pow angle 2) (- (* -1/180 (/ (* (pow b 2) (PI)) (* a (sqrt 2)))) (* -1/1080 (/ (* (pow b 2) (PI)) (* a (sqrt 2))))))) angle)))
#s(approx (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))) #s(hole binary64 (/ (+ (* 180 (/ (pow b 2) (* a (* (PI) (sqrt 2))))) (* (pow angle 2) (- (+ (* -1/180 (/ (* (pow b 2) (PI)) (* a (sqrt 2)))) (* (pow angle 2) (- (* 180 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* a (* (PI) (sqrt 2))))) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/180 (/ (* (pow b 2) (PI)) (* a (sqrt 2)))) (* -1/1080 (/ (* (pow b 2) (PI)) (* a (sqrt 2))))))) (* 1/699840000 (/ (* (pow b 2) (pow (PI) 3)) (* a (sqrt 2)))))))) (* -1/1080 (/ (* (pow b 2) (PI)) (* a (sqrt 2))))))) angle)))
#s(approx (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))) #s(hole binary64 (/ (+ (* 180 (/ (pow b 2) (* a (* (PI) (sqrt 2))))) (* (pow angle 2) (- (+ (* -1/180 (/ (* (pow b 2) (PI)) (* a (sqrt 2)))) (* (pow angle 2) (- (+ (* 180 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* a (* (PI) (sqrt 2))))) (* (pow angle 2) (- (* 180 (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* a (* (PI) (sqrt 2))))) (+ (* -1/194400 (* (pow (PI) 2) (- (* 180 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* a (* (PI) (sqrt 2))))) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/180 (/ (* (pow b 2) (PI)) (* a (sqrt 2)))) (* -1/1080 (/ (* (pow b 2) (PI)) (* a (sqrt 2))))))) (* 1/699840000 (/ (* (pow b 2) (pow (PI) 3)) (* a (sqrt 2)))))))) (+ (* -1/952342272000000 (/ (* (pow b 2) (pow (PI) 5)) (* a (sqrt 2)))) (* 1/125971200000 (* (pow (PI) 4) (- (* -1/180 (/ (* (pow b 2) (PI)) (* a (sqrt 2)))) (* -1/1080 (/ (* (pow b 2) (PI)) (* a (sqrt 2)))))))))))) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/180 (/ (* (pow b 2) (PI)) (* a (sqrt 2)))) (* -1/1080 (/ (* (pow b 2) (PI)) (* a (sqrt 2))))))) (* 1/699840000 (/ (* (pow b 2) (pow (PI) 3)) (* a (sqrt 2)))))))) (* -1/1080 (/ (* (pow b 2) (PI)) (* a (sqrt 2))))))) angle)))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) #s(hole binary64 (* 4 (* b y-scale))))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) #s(hole binary64 (+ (* 4 (* b y-scale)) (* (pow angle 2) (+ (* -1/16200 (* b (* y-scale (pow (PI) 2)))) (* 1/32400 (/ (* (pow a 2) (* y-scale (* (pow (PI) 2) (sqrt 8)))) (* b (sqrt 2)))))))))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) #s(hole binary64 (+ (* 4 (* b y-scale)) (* (pow angle 2) (+ (* -1/16200 (* b (* y-scale (pow (PI) 2)))) (+ (* 1/32400 (/ (* (pow a 2) (* y-scale (* (pow (PI) 2) (sqrt 8)))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* 1/6298560000 (* b (* y-scale (pow (PI) 4)))) (* (pow a 2) (- (+ (* -1/2099520000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))))))))))))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) #s(hole binary64 (+ (* 4 (* b y-scale)) (* (pow angle 2) (+ (* -1/16200 (* b (* y-scale (pow (PI) 2)))) (+ (* 1/32400 (/ (* (pow a 2) (* y-scale (* (pow (PI) 2) (sqrt 8)))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* 1/6298560000 (* b (* y-scale (pow (PI) 4)))) (+ (* (pow a 2) (- (+ (* -1/2099520000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2)))))) (* (pow angle 2) (+ (* -1/6122200320000000 (* b (* y-scale (pow (PI) 6)))) (* (pow a 2) (- (+ (* -1/2 (- (* -1/51018336000000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 6) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (* (sqrt 8) (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))))))) (* (pow b 3) (pow (sqrt 2) 3)))))) (/ (* y-scale (* (sqrt 8) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* b (sqrt 2)))) (+ (* -1/64800 (* (pow (PI) 2) (- (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2)))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))))) (* 1/816293376000000 (/ (* y-scale (* (pow (PI) 6) (sqrt 8))) (* b (sqrt 2))))))))))))))))))
#s(approx (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4)) #s(hole binary64 (* 4 y-scale)))
#s(approx (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4)) #s(hole binary64 (+ (* -1/16200 (* (pow angle 2) (* y-scale (pow (PI) 2)))) (* 4 y-scale))))
#s(approx (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4)) #s(hole binary64 (+ (* 4 y-scale) (* (pow angle 2) (+ (* -1/16200 (* y-scale (pow (PI) 2))) (* 1/6298560000 (* (pow angle 2) (* y-scale (pow (PI) 4)))))))))
#s(approx (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4)) #s(hole binary64 (+ (* 4 y-scale) (* (pow angle 2) (+ (* -1/16200 (* y-scale (pow (PI) 2))) (* (pow angle 2) (+ (* -1/6122200320000000 (* (pow angle 2) (* y-scale (pow (PI) 6)))) (* 1/6298560000 (* y-scale (pow (PI) 4))))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) 4) #s(hole binary64 4))
#s(approx (* (cos (* 1/180 (* angle (PI)))) 4) #s(hole binary64 (+ 4 (* -1/16200 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) 4) #s(hole binary64 (+ 4 (* (pow angle 2) (+ (* -1/16200 (pow (PI) 2)) (* 1/6298560000 (* (pow angle 2) (pow (PI) 4))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) 4) #s(hole binary64 (+ 4 (* (pow angle 2) (+ (* -1/16200 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/6122200320000000 (* (pow angle 2) (pow (PI) 6))) (* 1/6298560000 (pow (PI) 4)))))))))
#s(approx (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) #s(hole binary64 (* 1/32400 (/ (* (pow a 2) (* (pow angle 2) (* y-scale (* (pow (PI) 2) (sqrt 8))))) (* b (sqrt 2))))))
#s(approx (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (* (pow a 2) (* y-scale (* (pow (PI) 2) (sqrt 8)))) (* b (sqrt 2)))) (* (pow a 2) (* (pow angle 2) (- (+ (* -1/2099520000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2)))))))))))
#s(approx (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (* (pow a 2) (* y-scale (* (pow (PI) 2) (sqrt 8)))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* (pow a 2) (* (pow angle 2) (- (+ (* -1/2 (- (* -1/51018336000000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 6) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (* (sqrt 8) (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))))))) (* (pow b 3) (pow (sqrt 2) 3)))))) (/ (* y-scale (* (sqrt 8) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* b (sqrt 2)))) (+ (* -1/64800 (* (pow (PI) 2) (- (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2)))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))))) (* 1/816293376000000 (/ (* y-scale (* (pow (PI) 6) (sqrt 8))) (* b (sqrt 2)))))))) (* (pow a 2) (- (+ (* -1/2099520000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))))))))))
#s(approx (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (* (pow a 2) (* y-scale (* (pow (PI) 2) (sqrt 8)))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* (pow a 2) (- (+ (* -1/2099520000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2)))))) (* (pow angle 2) (+ (* (pow a 2) (* (pow angle 2) (- (+ (* -1/2 (- (/ (* (pow a 2) (* y-scale (* (sqrt 8) (+ (* 1/9917964518400000000 (pow (PI) 8)) (* 1/16200 (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))))))) (* (pow b 3) (pow (sqrt 2) 3))) (+ (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (* (sqrt 8) (+ (* 1/25194240000 (pow (PI) 4)) (+ (* 1/12597120000 (pow (PI) 4)) (+ (* 1/4199040000 (pow (PI) 4)) (* 1/2099520000 (pow (PI) 4))))))))) (* (pow b 3) (pow (sqrt 2) 3)))) (* (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))) (- (* -1/51018336000000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 6) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (* (sqrt 8) (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))))))) (* (pow b 3) (pow (sqrt 2) 3))))))))) (/ (* y-scale (* (sqrt 8) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))) (* b (sqrt 2)))) (+ (* -1/64800 (* (pow (PI) 2) (- (/ (* y-scale (* (sqrt 8) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* b (sqrt 2))) (+ (* -1/64800 (* (pow (PI) 2) (- (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2)))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))))) (* 1/816293376000000 (/ (* y-scale (* (pow (PI) 6) (sqrt 8))) (* b (sqrt 2)))))))) (+ (* -1/793437161472000000000 (/ (* y-scale (* (pow (PI) 8) (sqrt 8))) (* b (sqrt 2)))) (* 1/25194240000 (* (pow (PI) 4) (- (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2)))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2)))))))))))) (* (pow a 2) (- (+ (* -1/2 (- (* -1/51018336000000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 6) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (* (sqrt 8) (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))))))) (* (pow b 3) (pow (sqrt 2) 3)))))) (/ (* y-scale (* (sqrt 8) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* b (sqrt 2)))) (+ (* -1/64800 (* (pow (PI) 2) (- (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2)))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))))) (* 1/816293376000000 (/ (* y-scale (* (pow (PI) 6) (sqrt 8))) (* b (sqrt 2)))))))))))))))
#s(approx (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (* 1/32400 (/ (* (pow angle 2) (* y-scale (* (pow (PI) 2) (sqrt 8)))) (* b (sqrt 2))))))
#s(approx (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (* y-scale (* (pow (PI) 2) (sqrt 8))) (* b (sqrt 2)))) (* (pow angle 2) (- (+ (* -1/2099520000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))))))))
#s(approx (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (* y-scale (* (pow (PI) 2) (sqrt 8))) (* b (sqrt 2)))) (* (pow angle 2) (- (+ (* -1/2099520000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (+ (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2)))) (* (pow angle 2) (- (+ (* -1/2 (- (* -1/51018336000000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 6) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (* (sqrt 8) (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))))))) (* (pow b 3) (pow (sqrt 2) 3)))))) (/ (* y-scale (* (sqrt 8) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* b (sqrt 2)))) (+ (* -1/64800 (* (pow (PI) 2) (- (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2)))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))))) (* 1/816293376000000 (/ (* y-scale (* (pow (PI) 6) (sqrt 8))) (* b (sqrt 2))))))))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))))))))
#s(approx (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (* y-scale (* (pow (PI) 2) (sqrt 8))) (* b (sqrt 2)))) (* (pow angle 2) (- (+ (* -1/2099520000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (+ (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2)))) (* (pow angle 2) (- (+ (* -1/2 (- (* -1/51018336000000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 6) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (* (sqrt 8) (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))))))) (* (pow b 3) (pow (sqrt 2) 3)))))) (+ (* (pow angle 2) (- (+ (* -1/2 (- (/ (* (pow a 2) (* y-scale (* (sqrt 8) (+ (* 1/9917964518400000000 (pow (PI) 8)) (* 1/16200 (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))))))) (* (pow b 3) (pow (sqrt 2) 3))) (+ (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (* (sqrt 8) (+ (* 1/25194240000 (pow (PI) 4)) (+ (* 1/12597120000 (pow (PI) 4)) (+ (* 1/4199040000 (pow (PI) 4)) (* 1/2099520000 (pow (PI) 4))))))))) (* (pow b 3) (pow (sqrt 2) 3)))) (* (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))) (- (* -1/51018336000000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 6) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (* (sqrt 8) (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))))))) (* (pow b 3) (pow (sqrt 2) 3))))))))) (/ (* y-scale (* (sqrt 8) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))) (* b (sqrt 2)))) (+ (* -1/64800 (* (pow (PI) 2) (- (/ (* y-scale (* (sqrt 8) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* b (sqrt 2))) (+ (* -1/64800 (* (pow (PI) 2) (- (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2)))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))))) (* 1/816293376000000 (/ (* y-scale (* (pow (PI) 6) (sqrt 8))) (* b (sqrt 2)))))))) (+ (* -1/793437161472000000000 (/ (* y-scale (* (pow (PI) 8) (sqrt 8))) (* b (sqrt 2)))) (* 1/25194240000 (* (pow (PI) 4) (- (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2)))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))))))))) (/ (* y-scale (* (sqrt 8) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* b (sqrt 2))))) (+ (* -1/64800 (* (pow (PI) 2) (- (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2)))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))))) (* 1/816293376000000 (/ (* y-scale (* (pow (PI) 6) (sqrt 8))) (* b (sqrt 2))))))))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))))))))
#s(approx (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3))) #s(hole binary64 (* 1/1049760000 (/ (* (pow a 2) (* (pow angle 4) (* y-scale (* (pow (PI) 4) (sqrt 8))))) (* (pow b 3) (pow (sqrt 2) 3))))))
#s(approx (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3))) #s(hole binary64 (* (pow angle 4) (+ (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* (pow angle 2) (- (* -1/51018336000000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 6) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (* (sqrt 8) (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))))))) (* (pow b 3) (pow (sqrt 2) 3))))))))))
#s(approx (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3))) #s(hole binary64 (* (pow angle 4) (+ (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* (pow angle 2) (- (+ (* -1/51018336000000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 6) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* (pow angle 2) (- (/ (* (pow a 2) (* y-scale (* (sqrt 8) (+ (* 1/9917964518400000000 (pow (PI) 8)) (* 1/16200 (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))))))) (* (pow b 3) (pow (sqrt 2) 3))) (+ (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (* (sqrt 8) (+ (* 1/25194240000 (pow (PI) 4)) (+ (* 1/12597120000 (pow (PI) 4)) (+ (* 1/4199040000 (pow (PI) 4)) (* 1/2099520000 (pow (PI) 4))))))))) (* (pow b 3) (pow (sqrt 2) 3)))) (* (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))) (- (* -1/51018336000000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 6) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (* (sqrt 8) (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))))))) (* (pow b 3) (pow (sqrt 2) 3)))))))))) (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (* (sqrt 8) (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))))))) (* (pow b 3) (pow (sqrt 2) 3))))))))))
#s(approx (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3))) #s(hole binary64 (* (pow angle 4) (+ (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* (pow angle 2) (- (+ (* -1/51018336000000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 6) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* (pow angle 2) (- (+ (* (pow angle 2) (- (/ (* (pow a 2) (* y-scale (* (sqrt 8) (+ (* -1/1574640000 (* (pow (PI) 4) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* 1/16200 (* (pow (PI) 2) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))))))) (* (pow b 3) (pow (sqrt 2) 3))) (+ (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (* (sqrt 8) (+ (* -1/64800 (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (+ (* -1/408146688000000 (pow (PI) 6)) (+ (* -1/12244400640000000 (pow (PI) 6)) (* -1/24488801280000000 (pow (PI) 6))))))))) (* (pow b 3) (pow (sqrt 2) 3)))) (+ (* (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))) (- (/ (* (pow a 2) (* y-scale (* (sqrt 8) (+ (* 1/9917964518400000000 (pow (PI) 8)) (* 1/16200 (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))))))) (* (pow b 3) (pow (sqrt 2) 3))) (+ (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (* (sqrt 8) (+ (* 1/25194240000 (pow (PI) 4)) (+ (* 1/12597120000 (pow (PI) 4)) (+ (* 1/4199040000 (pow (PI) 4)) (* 1/2099520000 (pow (PI) 4))))))))) (* (pow b 3) (pow (sqrt 2) 3)))) (* (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))) (- (* -1/51018336000000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 6) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (* (sqrt 8) (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))))))) (* (pow b 3) (pow (sqrt 2) 3))))))))) (* (+ (* 1/25194240000 (pow (PI) 4)) (+ (* 1/12597120000 (pow (PI) 4)) (+ (* 1/4199040000 (pow (PI) 4)) (* 1/2099520000 (pow (PI) 4))))) (- (* -1/51018336000000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 6) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (* (sqrt 8) (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))))))) (* (pow b 3) (pow (sqrt 2) 3)))))))))) (/ (* (pow a 2) (* y-scale (* (sqrt 8) (+ (* 1/9917964518400000000 (pow (PI) 8)) (* 1/16200 (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))))))) (* (pow b 3) (pow (sqrt 2) 3)))) (+ (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (* (sqrt 8) (+ (* 1/25194240000 (pow (PI) 4)) (+ (* 1/12597120000 (pow (PI) 4)) (+ (* 1/4199040000 (pow (PI) 4)) (* 1/2099520000 (pow (PI) 4))))))))) (* (pow b 3) (pow (sqrt 2) 3)))) (* (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))) (- (* -1/51018336000000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 6) (sqrt 8)))) (* (pow b 3) (pow (sqrt 2) 3)))) (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (* (sqrt 8) (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))))))) (* (pow b 3) (pow (sqrt 2) 3)))))))))) (* 1/1049760000 (/ (* (pow a 2) (* y-scale (* (pow (PI) 4) (* (sqrt 8) (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))))))) (* (pow b 3) (pow (sqrt 2) 3))))))))))
#s(approx (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) #s(hole binary64 (* 1/1049760000 (* (pow a 2) (* (pow angle 4) (* y-scale (* (pow (PI) 4) (sqrt 8))))))))
#s(approx (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) #s(hole binary64 (* (pow angle 4) (+ (* -1/51018336000000 (* (pow a 2) (* (pow angle 2) (* y-scale (* (pow (PI) 6) (sqrt 8)))))) (* 1/1049760000 (* (pow a 2) (* y-scale (* (pow (PI) 4) (sqrt 8)))))))))
#s(approx (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) #s(hole binary64 (* (pow angle 4) (+ (* 1/1049760000 (* (pow a 2) (* y-scale (* (pow (PI) 4) (sqrt 8))))) (* (pow angle 2) (+ (* -1/51018336000000 (* (pow a 2) (* y-scale (* (pow (PI) 6) (sqrt 8))))) (* (pow a 2) (* (pow angle 2) (* y-scale (* (sqrt 8) (+ (* 1/9917964518400000000 (pow (PI) 8)) (* 1/16200 (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))))))))))))))
#s(approx (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) #s(hole binary64 (* (pow angle 4) (+ (* 1/1049760000 (* (pow a 2) (* y-scale (* (pow (PI) 4) (sqrt 8))))) (* (pow angle 2) (+ (* -1/51018336000000 (* (pow a 2) (* y-scale (* (pow (PI) 6) (sqrt 8))))) (* (pow angle 2) (+ (* (pow a 2) (* y-scale (* (sqrt 8) (+ (* 1/9917964518400000000 (pow (PI) 8)) (* 1/16200 (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))))))) (* (pow a 2) (* (pow angle 2) (* y-scale (* (sqrt 8) (+ (* -1/1574640000 (* (pow (PI) 4) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* 1/16200 (* (pow (PI) 2) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))))))))))))))))
#s(approx (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) #s(hole binary64 (* 1/1049760000 (* (pow angle 4) (* y-scale (* (pow (PI) 4) (sqrt 8)))))))
#s(approx (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) #s(hole binary64 (* (pow angle 4) (+ (* -1/51018336000000 (* (pow angle 2) (* y-scale (* (pow (PI) 6) (sqrt 8))))) (* 1/1049760000 (* y-scale (* (pow (PI) 4) (sqrt 8))))))))
#s(approx (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) #s(hole binary64 (* (pow angle 4) (+ (* 1/1049760000 (* y-scale (* (pow (PI) 4) (sqrt 8)))) (* (pow angle 2) (+ (* -1/51018336000000 (* y-scale (* (pow (PI) 6) (sqrt 8)))) (* (pow angle 2) (* y-scale (* (sqrt 8) (+ (* 1/9917964518400000000 (pow (PI) 8)) (* 1/16200 (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))))))))))))))
#s(approx (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) #s(hole binary64 (* (pow angle 4) (+ (* 1/1049760000 (* y-scale (* (pow (PI) 4) (sqrt 8)))) (* (pow angle 2) (+ (* -1/51018336000000 (* y-scale (* (pow (PI) 6) (sqrt 8)))) (* (pow angle 2) (+ (* y-scale (* (sqrt 8) (+ (* 1/9917964518400000000 (pow (PI) 8)) (* 1/16200 (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))))))) (* (pow angle 2) (* y-scale (* (sqrt 8) (+ (* -1/1574640000 (* (pow (PI) 4) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* 1/16200 (* (pow (PI) 2) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8)))))))))))))))))
#s(approx (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)) #s(hole binary64 (* 1/1049760000 (* (pow angle 4) (* (pow (PI) 4) (sqrt 8))))))
#s(approx (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)) #s(hole binary64 (* (pow angle 4) (+ (* -1/51018336000000 (* (pow angle 2) (* (pow (PI) 6) (sqrt 8)))) (* 1/1049760000 (* (pow (PI) 4) (sqrt 8)))))))
#s(approx (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)) #s(hole binary64 (* (pow angle 4) (+ (* 1/1049760000 (* (pow (PI) 4) (sqrt 8))) (* (pow angle 2) (+ (* -1/51018336000000 (* (pow (PI) 6) (sqrt 8))) (* (pow angle 2) (* (sqrt 8) (+ (* 1/9917964518400000000 (pow (PI) 8)) (* 1/16200 (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))))))))))))
#s(approx (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)) #s(hole binary64 (* (pow angle 4) (+ (* 1/1049760000 (* (pow (PI) 4) (sqrt 8))) (* (pow angle 2) (+ (* -1/51018336000000 (* (pow (PI) 6) (sqrt 8))) (* (pow angle 2) (+ (* (sqrt 8) (+ (* 1/9917964518400000000 (pow (PI) 8)) (* 1/16200 (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))))) (* (pow angle 2) (* (sqrt 8) (+ (* -1/1574640000 (* (pow (PI) 4) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* 1/16200 (* (pow (PI) 2) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))))))))))))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 4) #s(hole binary64 (* 1/1049760000 (* (pow angle 4) (pow (PI) 4)))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 4) #s(hole binary64 (* (pow angle 4) (+ (* -1/51018336000000 (* (pow angle 2) (pow (PI) 6))) (* 1/1049760000 (pow (PI) 4))))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 4) #s(hole binary64 (* (pow angle 4) (+ (* 1/1049760000 (pow (PI) 4)) (* (pow angle 2) (+ (* -1/51018336000000 (pow (PI) 6)) (* (pow angle 2) (+ (* 1/9917964518400000000 (pow (PI) 8)) (* 1/16200 (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))))))))))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 4) #s(hole binary64 (* (pow angle 4) (+ (* 1/1049760000 (pow (PI) 4)) (* (pow angle 2) (+ (* -1/51018336000000 (pow (PI) 6)) (* (pow angle 2) (+ (* 1/9917964518400000000 (pow (PI) 8)) (+ (* 1/16200 (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* (pow angle 2) (+ (* -1/1574640000 (* (pow (PI) 4) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* 1/16200 (* (pow (PI) 2) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))))))))))))))
#s(approx (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)) #s(hole binary64 (* (pow b 3) (pow (sqrt 2) 3))))
#s(approx (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)) #s(hole binary64 (+ (* (pow angle 2) (* (pow b 3) (* (pow (sqrt 2) 3) (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2)))))) (* (pow b 3) (pow (sqrt 2) 3)))))
#s(approx (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)) #s(hole binary64 (+ (* (pow angle 2) (+ (* (pow angle 2) (* (pow b 3) (* (pow (sqrt 2) 3) (+ (* 1/25194240000 (pow (PI) 4)) (+ (* 1/12597120000 (pow (PI) 4)) (+ (* 1/4199040000 (pow (PI) 4)) (* 1/2099520000 (pow (PI) 4)))))))) (* (pow b 3) (* (pow (sqrt 2) 3) (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))))))) (* (pow b 3) (pow (sqrt 2) 3)))))
#s(approx (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)) #s(hole binary64 (+ (* (pow angle 2) (+ (* (pow angle 2) (+ (* (pow angle 2) (* (pow b 3) (* (pow (sqrt 2) 3) (+ (* -1/64800 (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (+ (* -1/408146688000000 (pow (PI) 6)) (+ (* -1/12244400640000000 (pow (PI) 6)) (* -1/24488801280000000 (pow (PI) 6)))))))) (* (pow b 3) (* (pow (sqrt 2) 3) (+ (* 1/25194240000 (pow (PI) 4)) (+ (* 1/12597120000 (pow (PI) 4)) (+ (* 1/4199040000 (pow (PI) 4)) (* 1/2099520000 (pow (PI) 4))))))))) (* (pow b 3) (* (pow (sqrt 2) 3) (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))))))) (* (pow b 3) (pow (sqrt 2) 3)))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3) #s(hole binary64 (pow (sqrt 2) 3)))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3) #s(hole binary64 (+ (* (pow angle 2) (* (pow (sqrt 2) 3) (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2))))) (pow (sqrt 2) 3))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3) #s(hole binary64 (+ (* (pow angle 2) (+ (* (pow angle 2) (* (pow (sqrt 2) 3) (+ (* 1/25194240000 (pow (PI) 4)) (+ (* 1/12597120000 (pow (PI) 4)) (+ (* 1/4199040000 (pow (PI) 4)) (* 1/2099520000 (pow (PI) 4))))))) (* (pow (sqrt 2) 3) (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2)))))) (pow (sqrt 2) 3))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3) #s(hole binary64 (+ (* (pow angle 2) (+ (* (pow angle 2) (+ (* (pow angle 2) (* (pow (sqrt 2) 3) (+ (* -1/64800 (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (+ (* -1/408146688000000 (pow (PI) 6)) (+ (* -1/12244400640000000 (pow (PI) 6)) (* -1/24488801280000000 (pow (PI) 6))))))) (* (pow (sqrt 2) 3) (+ (* 1/25194240000 (pow (PI) 4)) (+ (* 1/12597120000 (pow (PI) 4)) (+ (* 1/4199040000 (pow (PI) 4)) (* 1/2099520000 (pow (PI) 4)))))))) (* (pow (sqrt 2) 3) (+ (* -1/32400 (pow (PI) 2)) (* -1/64800 (pow (PI) 2)))))) (pow (sqrt 2) 3))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) #s(hole binary64 (sqrt 2)))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) #s(hole binary64 (+ (sqrt 2) (* -1/64800 (* (pow angle 2) (* (pow (PI) 2) (sqrt 2)))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) #s(hole binary64 (+ (sqrt 2) (* (pow angle 2) (+ (* -1/64800 (* (pow (PI) 2) (sqrt 2))) (* 1/25194240000 (* (pow angle 2) (* (pow (PI) 4) (sqrt 2)))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) #s(hole binary64 (+ (sqrt 2) (* (pow angle 2) (+ (* -1/64800 (* (pow (PI) 2) (sqrt 2))) (* (pow angle 2) (+ (* -1/24488801280000000 (* (pow angle 2) (* (pow (PI) 6) (sqrt 2)))) (* 1/25194240000 (* (pow (PI) 4) (sqrt 2))))))))))
#s(approx (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))) #s(hole binary64 (* 1/32400 (/ (* (pow angle 2) (* y-scale (* (pow (PI) 2) (sqrt 8)))) (* b (sqrt 2))))))
#s(approx (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (* y-scale (* (pow (PI) 2) (sqrt 8))) (* b (sqrt 2)))) (* (pow angle 2) (- (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2)))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))))))))
#s(approx (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (* y-scale (* (pow (PI) 2) (sqrt 8))) (* b (sqrt 2)))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2)))) (* (pow angle 2) (- (/ (* y-scale (* (sqrt 8) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* b (sqrt 2))) (+ (* -1/64800 (* (pow (PI) 2) (- (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2)))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))))) (* 1/816293376000000 (/ (* y-scale (* (pow (PI) 6) (sqrt 8))) (* b (sqrt 2)))))))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))))))))
#s(approx (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (* y-scale (* (pow (PI) 2) (sqrt 8))) (* b (sqrt 2)))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2)))) (* (pow angle 2) (- (+ (* (pow angle 2) (- (/ (* y-scale (* (sqrt 8) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))) (* b (sqrt 2))) (+ (* -1/64800 (* (pow (PI) 2) (- (/ (* y-scale (* (sqrt 8) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* b (sqrt 2))) (+ (* -1/64800 (* (pow (PI) 2) (- (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2)))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))))) (* 1/816293376000000 (/ (* y-scale (* (pow (PI) 6) (sqrt 8))) (* b (sqrt 2)))))))) (+ (* -1/793437161472000000000 (/ (* y-scale (* (pow (PI) 8) (sqrt 8))) (* b (sqrt 2)))) (* 1/25194240000 (* (pow (PI) 4) (- (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2)))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))))))))) (/ (* y-scale (* (sqrt 8) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* b (sqrt 2)))) (+ (* -1/64800 (* (pow (PI) 2) (- (* -1/3149280000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2)))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))))) (* 1/816293376000000 (/ (* y-scale (* (pow (PI) 6) (sqrt 8))) (* b (sqrt 2)))))))) (* -1/2099520000 (/ (* y-scale (* (pow (PI) 4) (sqrt 8))) (* b (sqrt 2))))))))))
#s(approx (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) #s(hole binary64 (* 1/32400 (* (pow angle 2) (* y-scale (* (pow (PI) 2) (sqrt 8)))))))
#s(approx (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) #s(hole binary64 (* (pow angle 2) (+ (* -1/3149280000 (* (pow angle 2) (* y-scale (* (pow (PI) 4) (sqrt 8))))) (* 1/32400 (* y-scale (* (pow (PI) 2) (sqrt 8))))))))
#s(approx (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* y-scale (* (pow (PI) 2) (sqrt 8)))) (* (pow angle 2) (+ (* -1/3149280000 (* y-scale (* (pow (PI) 4) (sqrt 8)))) (* (pow angle 2) (* y-scale (* (sqrt 8) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))))))))))
#s(approx (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* y-scale (* (pow (PI) 2) (sqrt 8)))) (* (pow angle 2) (+ (* -1/3149280000 (* y-scale (* (pow (PI) 4) (sqrt 8)))) (* (pow angle 2) (+ (* y-scale (* (sqrt 8) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* (pow angle 2) (* y-scale (* (sqrt 8) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))))))))))))
#s(approx (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)) #s(hole binary64 (* 1/32400 (* (pow angle 2) (* (pow (PI) 2) (sqrt 8))))))
#s(approx (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)) #s(hole binary64 (* (pow angle 2) (+ (* -1/3149280000 (* (pow angle 2) (* (pow (PI) 4) (sqrt 8)))) (* 1/32400 (* (pow (PI) 2) (sqrt 8)))))))
#s(approx (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* (pow (PI) 2) (sqrt 8))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow (PI) 4) (sqrt 8))) (* (pow angle 2) (* (sqrt 8) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))))))))))
#s(approx (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* (pow (PI) 2) (sqrt 8))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow (PI) 4) (sqrt 8))) (* (pow angle 2) (+ (* (sqrt 8) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow angle 2) (* (sqrt 8) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8)))))))))))))
#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 (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) #s(hole binary64 (* b (sqrt 2))))
#s(approx (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) #s(hole binary64 (+ (* -1/64800 (* (pow angle 2) (* b (* (pow (PI) 2) (sqrt 2))))) (* b (sqrt 2)))))
#s(approx (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) #s(hole binary64 (+ (* b (sqrt 2)) (* (pow angle 2) (+ (* -1/64800 (* b (* (pow (PI) 2) (sqrt 2)))) (* 1/25194240000 (* (pow angle 2) (* b (* (pow (PI) 4) (sqrt 2))))))))))
#s(approx (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) #s(hole binary64 (+ (* b (sqrt 2)) (* (pow angle 2) (+ (* -1/64800 (* b (* (pow (PI) 2) (sqrt 2)))) (* (pow angle 2) (+ (* -1/24488801280000000 (* (pow angle 2) (* b (* (pow (PI) 6) (sqrt 2))))) (* 1/25194240000 (* b (* (pow (PI) 4) (sqrt 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (cos (* 1/180 (* angle (PI))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 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 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 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 (sqrt (+ (* 2 (/ (pow (* 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 (sqrt (+ (* 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)))) (sqrt 2)) #s(hole binary64 (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (sin (* 1/180 (* angle (PI))))))
#s(approx (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4)) #s(hole binary64 (* 4 (* y-scale (cos (* 1/180 (* angle (PI))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) 4) #s(hole binary64 (* 4 (cos (* 1/180 (* angle (PI)))))))
#s(approx (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) #s(hole binary64 (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))))
#s(approx (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)) #s(hole binary64 (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 4) #s(hole binary64 (pow (sin (* 1/180 (* angle (PI)))) 4)))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3) #s(hole binary64 (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) #s(hole binary64 (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))
#s(approx (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) #s(hole binary64 (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))))
#s(approx (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)) #s(hole binary64 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (pow (sin (* 1/180 (* angle (PI)))) 2)))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/8 (* (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* 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 a 2) (pow (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 (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 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) (+ (* 1/8 (* (* y-scale (* (sqrt 8) (+ (* 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 a 2) (pow (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 (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 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) (+ (* 1/8 (* (* y-scale (* (sqrt 8) (+ (* 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 a 2) (pow (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 (/ 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) (+ (* 1/8 (* (* y-scale (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (* -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 (cos (* 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 (/ (* (+ (* 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 a 2) (pow (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 (cos (* 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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 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)))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* x-scale (* y-scale (sqrt 8))) #s(hole binary64 (* x-scale (* y-scale (sqrt 8)))))
#s(approx x-scale #s(hole binary64 x-scale))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* (/ 1 x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 4)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 6)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 4)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 4)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 6)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 4)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* (/ 1 x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/8 (* (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* 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))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow y-scale 2) (+ (* 1/8 (* (* x-scale (* (sqrt 8) (+ (* 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)))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow y-scale 2) (+ (* 1/8 (* (* x-scale (* (sqrt 8) (+ (* 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)))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* 1/8 (* (* x-scale (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (* -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 (/ (* (+ (* 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)))) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (* y-scale (sqrt 8)) #s(hole binary64 (* y-scale (sqrt 8))))
#s(approx y-scale #s(hole binary64 y-scale))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) #s(hole binary64 (* y-scale (+ (* 4 (* b (cos (* 1/180 (* angle (PI)))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) #s(hole binary64 (* (pow a 2) (* y-scale (+ (* -1/2 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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))))))))) (pow y-scale 4)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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))))))))) (pow y-scale 6)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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))))))))) (pow y-scale 4)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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))))))))) (pow y-scale 4)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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))))))))) (pow y-scale 6)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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))))))))) (pow y-scale 4)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) #s(hole binary64 (* -1 (* y-scale (+ (* -4 (* b (cos (* 1/180 (* angle (PI)))))) (* (pow a 2) (+ (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (* 1/2 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))))
#s(approx (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) #s(hole binary64 (* -1 (* (pow a 2) (* y-scale (+ (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (* 1/2 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))))))))
#s(approx (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) #s(hole binary64 (* -1 (* y-scale (+ (* -1 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (* 1/2 (/ (* (pow a 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))
Outputs
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (*.f64 #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 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64)))))) (*.f64 #s(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/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (*.f64 #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 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64)))))) (*.f64 #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 1/4 binary64)
(*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (*.f64 #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 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))
(*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))
y-scale
(pow.f64 #s(literal 8 binary64) #s(literal 1/2 binary64))
(sqrt.f64 #s(literal 8 binary64))
#s(literal 8 binary64)
(pow.f64 (fma.f64 #s(literal 2 binary64) (*.f64 #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 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64)))))) (*.f64 #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 1/2 binary64))
(sqrt.f64 (fma.f64 #s(literal 2 binary64) (*.f64 #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 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64)))))) (*.f64 #s(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 #s(literal 2 binary64) (*.f64 #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 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))))) #s(literal 3 binary64)) (pow.f64 (*.f64 #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))) (fma.f64 (*.f64 #s(literal 2 binary64) (*.f64 #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 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 2 binary64) (*.f64 #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 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))))) (-.f64 (*.f64 (*.f64 #s(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 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (*.f64 #s(literal 2 binary64) (*.f64 #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 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))))) (*.f64 #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) (*.f64 #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 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64)))))) (*.f64 #s(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 #s(literal 2 binary64) (*.f64 #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 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))))) (*.f64 #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(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 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))))
(pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64)))))) #s(literal 2 binary64)))
#s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64)))))
(*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))
#s(literal 1/180 binary64)
(*.f64 a (*.f64 angle (PI.f64)))
a
(*.f64 angle (PI.f64))
angle
(PI.f64)
(*.f64 #s(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 (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)))))
b
(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(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(approx (* 1/4 (* b (* y-scale 4))) (*.f64 b y-scale)))
#s(approx (* 1/4 (* b (* y-scale 4))) (*.f64 b y-scale))
(*.f64 b y-scale)
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)))))
(*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale))))
#s(literal -1/4 binary64)
(*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)))
(*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))
x-scale
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale))
(/.f64 (neg.f64 (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (neg.f64 x-scale))
(/.f64 (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)
(*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))
(sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(sqrt.f64 #s(literal 2 binary64))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
(*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
(*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))
(/.f64 (+.f64 (pow.f64 (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) #s(literal 3 binary64))) (fma.f64 (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
(fma.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))
(+.f64 (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))
(*.f64 (/.f64 (*.f64 b b) a) (/.f64 (pow.f64 (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)))) (sqrt.f64 #s(literal 2 binary64)))))
(/.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 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
(*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
(/.f64 (+.f64 (pow.f64 (*.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))) #s(literal 3 binary64))) (fma.f64 (*.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (*.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (-.f64 (*.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))) (*.f64 (*.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
(fma.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
(+.f64 (*.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
(*.f64 y-scale (*.f64 (cos.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)))) #s(literal 4 binary64))
#s(literal 4 binary64)
(*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))
(*.f64 (fabs.f64 a) (fabs.f64 a))
(*.f64 (neg.f64 a) (neg.f64 a))
(*.f64 a a)
(pow.f64 a #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 a) #s(literal 2 binary64)))
(/.f64 (+.f64 (pow.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) #s(literal 3 binary64))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))) (-.f64 (*.f64 (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
(fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))
(+.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))
#s(literal -1/2 binary64)
(*.f64 (/.f64 (*.f64 a a) (*.f64 (*.f64 b b) b)) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))
(/.f64 (neg.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))))) (neg.f64 (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))))
(/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))
(*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))))
(*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))
(*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))
(pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))
(exp.f64 (*.f64 (log.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)))
(*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))
(*.f64 (*.f64 b b) b)
(*.f64 b (*.f64 b b))
(pow.f64 b #s(literal 3 binary64))
(exp.f64 (*.f64 (log.f64 b) #s(literal 3 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)))
(*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))
(*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))
(pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))
(exp.f64 (*.f64 (log.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))
#s(literal 3 binary64)
(*.f64 (/.f64 y-scale b) (/.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (neg.f64 (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))
(*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))
(*.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)))
(*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 a a) (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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/8 binary64) (*.f64 (*.f64 (*.f64 a a) (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(literal 2 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(literal 2 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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/8 binary64) (*.f64 (*.f64 (*.f64 a a) (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.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(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(literal 2 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale (*.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 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 5 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (fma.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (fma.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (fma.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 a a) (fma.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 5 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a a) (fma.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64))) (*.f64 (pow.f64 b #s(literal 5 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) (*.f64 #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 (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) (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)))))
#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 (* 1/180 (* a (* angle (PI)))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64)))))
#s(approx (* a (* angle (PI))) (*.f64 a (*.f64 angle (PI.f64))))
#s(approx a a)
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1/4 binary64) (*.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1/4 binary64) (*.f64 b (*.f64 y-scale (*.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 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1/4 binary64) (*.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1/4 binary64) (*.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 5 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 a a) (fma.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 5 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 b (*.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 x-scale (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 b (*.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))) (/.f64 (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 a a) (fma.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 x-scale (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64))) (*.f64 (pow.f64 b #s(literal 5 binary64)) (*.f64 x-scale (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64))))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 b (*.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))) (/.f64 (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)))
#s(approx (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale) (/.f64 (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale))
#s(approx (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (/.f64 (fma.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) a))
#s(approx (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) (*.f64 #s(literal 4 binary64) (*.f64 b (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) (fma.f64 #s(literal 4 binary64) (*.f64 b (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) (fma.f64 #s(literal 4 binary64) (*.f64 b (*.f64 y-scale (cos.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 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (* a a) (*.f64 a a))
#s(approx (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3))) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))))
#s(approx (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 a (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 a (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.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 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 a (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.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 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 a (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.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 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))))) (pow.f64 a #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal 1/4 binary64) (*.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 a (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.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 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 a (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.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 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 a (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.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 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 a (fma.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (fma.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 6 binary64)) (*.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) (*.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))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) (*.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)) (*.f64 a a)) (*.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1/4 binary64) (*.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 a (fma.f64 #s(literal -1/4 binary64) (*.f64 y-scale (*.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 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 a (fma.f64 #s(literal -1/4 binary64) (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 a (fma.f64 #s(literal -1/4 binary64) (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 a (fma.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 a (+.f64 (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) x-scale) (/.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) (*.f64 x-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 x-scale (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))) (+.f64 (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) x-scale) (/.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) (*.f64 x-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 x-scale (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 6 binary64)) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 x-scale (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64))))) (+.f64 (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) x-scale) (/.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) (*.f64 x-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (*.f64 a (fma.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 a a) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 b (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 a a) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))))
#s(approx (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 a a) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))))
#s(approx (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 a a) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 a (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.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 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.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 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.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 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))))) (pow.f64 a #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1/4 binary64) (*.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.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 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.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 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.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 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 6 binary64)) (*.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 1/4 binary64) (*.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 a (fma.f64 #s(literal -1/4 binary64) (*.f64 y-scale (*.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 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 a (fma.f64 #s(literal -1/4 binary64) (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 a (fma.f64 #s(literal -1/4 binary64) (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 a (fma.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (/.f64 (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 a (+.f64 (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) x-scale) (/.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) (*.f64 x-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 x-scale (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))) (+.f64 (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) x-scale) (/.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) (*.f64 x-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 x-scale (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 6 binary64)) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 x-scale (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64))))) (+.f64 (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) x-scale) (/.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) (*.f64 x-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))))
#s(approx (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 #s(literal -1 binary64) (/.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) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 b b) (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))) (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 b b) (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))) (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 b b) (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 #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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 a (*.f64 y-scale (*.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 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 a a) a) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 (*.f64 a a) a) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 5 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (fma.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (fma.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 a a) a) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (fma.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 b b) (fma.f64 (*.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 (*.f64 a a) a) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 5 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 a a) a) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 b b) (fma.f64 (*.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 (*.f64 (*.f64 a a) a) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64))) (*.f64 (pow.f64 a #s(literal 5 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (*.f64 #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 (* 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 b b)
#s(approx (* 1/4 (* b (* y-scale 4))) (*.f64 b y-scale))
#s(approx (* b y-scale) (*.f64 b y-scale))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1/4 binary64) (*.f64 a (*.f64 y-scale (*.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 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1/4 binary64) (*.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 a a) a) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1/4 binary64) (*.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 5 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 (*.f64 a a) a) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 a a) a) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 b b) (fma.f64 (*.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 (*.f64 a a) a) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 5 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 a (*.f64 x-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 a a) a) (*.f64 x-scale (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 a (*.f64 x-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))) (/.f64 (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 b b) (fma.f64 (*.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 (*.f64 (*.f64 a a) a) (*.f64 x-scale (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64))) (*.f64 (pow.f64 a #s(literal 5 binary64)) (*.f64 x-scale (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64))))))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 a (*.f64 x-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))) (/.f64 (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)))
#s(approx (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (fma.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (*.f64 b b) b)))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 4 binary64) (*.f64 (*.f64 b b) (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))) (*.f64 (*.f64 b b) b)))
#s(approx (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (*.f64 b b) b)))
#s(approx (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (*.f64 b b) b)))
#s(approx (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))
#s(approx (* (* b b) b) (*.f64 (*.f64 b b) b))
#s(approx (* b b) (*.f64 b b))
#s(approx (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 b (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 b (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 b (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 b (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) #s(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 b (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.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 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 b (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.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 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 b (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.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 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 b (fma.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 b (fma.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 6 binary64)) (*.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) (*.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)) (*.f64 b b)) (*.f64 #s(literal 2 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (fma.f64 #s(literal -1/4 binary64) (*.f64 y-scale (*.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 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (fma.f64 #s(literal -1/4 binary64) (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (fma.f64 #s(literal -1/4 binary64) (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (fma.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 b (+.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) x-scale) (/.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) (*.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 x-scale (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))) (+.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) x-scale) (/.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) (*.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 x-scale (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 6 binary64)) (*.f64 (pow.f64 b #s(literal 6 binary64)) (*.f64 x-scale (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64))))) (+.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) x-scale) (/.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) (*.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (*.f64 (*.f64 b b) (+.f64 (/.f64 (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 b b)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) (*.f64 b (fma.f64 #s(literal 4 binary64) (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 4 binary64) (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) b))
#s(approx (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) b))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 b (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) #s(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1/4 binary64) (*.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.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 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.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 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.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 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 6 binary64)) (*.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 1/4 binary64) (*.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 b (fma.f64 #s(literal -1/4 binary64) (*.f64 y-scale (*.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 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 b (fma.f64 #s(literal -1/4 binary64) (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 b (fma.f64 #s(literal -1/4 binary64) (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 b (fma.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (/.f64 (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 b (+.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) x-scale) (/.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) (*.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 x-scale (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))) (+.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) x-scale) (/.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) (*.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 x-scale (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 6 binary64)) (*.f64 (pow.f64 b #s(literal 6 binary64)) (*.f64 x-scale (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64))))) (+.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) x-scale) (/.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) (*.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal -4 binary64) (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal -4 binary64) (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))))))))
#s(approx (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))))) b)))
#s(approx (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))))) b)))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 #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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)))))))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 b (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (/.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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (/.f64 (*.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 y-scale y-scale)) (+.f64 (/.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 (/.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 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (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/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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)))))))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 #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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)))))))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64)))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64)))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 2 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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 2 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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal 2 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 #s(literal 2 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 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))) (-.f64 (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 2 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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 b (*.f64 y-scale #s(literal 4 binary64))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64)))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 b (*.f64 y-scale #s(literal 4 binary64)))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (fma.f64 b (*.f64 y-scale #s(literal 4 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 2 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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (fma.f64 b (*.f64 y-scale #s(literal 4 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 2 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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal 2 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 #s(literal 2 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 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))) (-.f64 (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 2 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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64)))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 b (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 2 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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 b (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.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 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 #s(literal 2 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 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))) (-.f64 (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 2 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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 2 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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) (*.f64 #s(literal 2 binary64) (*.f64 b b)))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) (fma.f64 #s(literal 2 binary64) (*.f64 b b) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) (fma.f64 #s(literal 2 binary64) (*.f64 b b) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (fma.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 2 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)))))))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) (fma.f64 #s(literal 2 binary64) (*.f64 b b) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (fma.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (fma.f64 #s(literal 2 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 (*.f64 angle angle) (fma.f64 #s(literal 2 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 #s(literal 2 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))))))))))))))))
#s(approx (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (*.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (*.f64 (PI.f64) (PI.f64))))))
#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) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64)))))))
#s(approx (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.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) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.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) (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64))) (*.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 (* angle (PI)) (*.f64 angle (PI.f64)))
#s(approx angle angle)
#s(approx (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (*.f64 #s(literal 2 binary64) (*.f64 b b)))
#s(approx (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64)))) (*.f64 #s(literal 2 binary64) (*.f64 b b))))
#s(approx (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (fma.f64 #s(literal 2 binary64) (*.f64 b b) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)))))))))))
#s(approx (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (fma.f64 #s(literal 2 binary64) (*.f64 b b) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (*.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 #s(literal 2 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))))))))))))
#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) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64)))) (*.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) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.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 b b)))
#s(approx (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (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) (*.f64 (*.f64 angle angle) (*.f64 (PI.f64) (PI.f64))))))
#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 (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64)))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64))) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (-.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale #s(literal 4 binary64))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 b (*.f64 y-scale #s(literal 4 binary64)))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale #s(literal 4 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale #s(literal 4 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (-.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (sqrt.f64 #s(literal 2 binary64))) x-scale))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 x-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (*.f64 b (sqrt.f64 #s(literal 2 binary64))) x-scale)))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 x-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 x-scale (-.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))) (/.f64 (*.f64 b (sqrt.f64 #s(literal 2 binary64))) x-scale)))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 x-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 x-scale (-.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 x-scale (-.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 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (-.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))) (/.f64 (*.f64 b (sqrt.f64 #s(literal 2 binary64))) x-scale)))
#s(approx (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale) (*.f64 #s(literal 1/180 binary64) (/.f64 (*.f64 a (*.f64 angle (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))) x-scale)))
#s(approx (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale) (*.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (/.f64 (*.f64 a (*.f64 (*.f64 angle angle) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (sqrt.f64 #s(literal 2 binary64))))) x-scale) (*.f64 #s(literal 1/180 binary64) (/.f64 (*.f64 a (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64)))) x-scale)))))
#s(approx (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (/.f64 (*.f64 a (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64)))) x-scale) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (/.f64 (*.f64 a (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (sqrt.f64 #s(literal 2 binary64)))) x-scale) (*.f64 #s(literal 1/22674816000000 binary64) (/.f64 (*.f64 a (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (sqrt.f64 #s(literal 2 binary64))))) x-scale)))))))
#s(approx (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (/.f64 (*.f64 a (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64)))) x-scale) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (/.f64 (*.f64 a (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (sqrt.f64 #s(literal 2 binary64)))) x-scale) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/30855889612800000000 binary64) (/.f64 (*.f64 a (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (sqrt.f64 #s(literal 2 binary64))))) x-scale) (*.f64 #s(literal 1/22674816000000 binary64) (/.f64 (*.f64 a (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (sqrt.f64 #s(literal 2 binary64)))) x-scale)))))))))
#s(approx (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (*.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (*.f64 a (*.f64 (*.f64 angle angle) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (*.f64 a (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/22674816000000 binary64) (*.f64 a (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (*.f64 a (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/30855889612800000000 binary64) (*.f64 a (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal 1/22674816000000 binary64) (*.f64 a (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (sqrt.f64 #s(literal 2 binary64))))))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (*.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 #s(literal 1/22674816000000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/30855889612800000000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/22674816000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (sqrt.f64 #s(literal 2 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) (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64))) (*.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) (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (*.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) (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (*.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 (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 b b) (*.f64 a (*.f64 angle (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (/.f64 (fma.f64 #s(literal 180 binary64) (/.f64 (*.f64 b b) (*.f64 a (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/180 binary64) (/.f64 (*.f64 (*.f64 b b) (PI.f64)) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 (*.f64 b b) (PI.f64)) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))))))) angle))
#s(approx (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (/.f64 (fma.f64 #s(literal 180 binary64) (/.f64 (*.f64 b b) (*.f64 a (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/180 binary64) (/.f64 (*.f64 (*.f64 b b) (PI.f64)) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/34992000 binary64) (*.f64 a (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 180 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 a (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))))) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/180 binary64) (/.f64 (*.f64 (*.f64 b b) (PI.f64)) (*.f64 a (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 (*.f64 b b) (PI.f64)) (*.f64 a (sqrt.f64 #s(literal 2 binary64))))))) (*.f64 #s(literal 1/699840000 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64))) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))))))))) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 (*.f64 b b) (PI.f64)) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))))))) angle))
#s(approx (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (/.f64 (fma.f64 #s(literal 180 binary64) (/.f64 (*.f64 b b) (*.f64 a (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/180 binary64) (/.f64 (*.f64 (*.f64 b b) (PI.f64)) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/34992000 binary64) (*.f64 a (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 #s(literal 180 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 a (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal 1/22674816000000 binary64) (*.f64 a (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 180 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 a (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))))) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal 180 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 a (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/180 binary64) (/.f64 (*.f64 (*.f64 b b) (PI.f64)) (*.f64 a (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 (*.f64 b b) (PI.f64)) (*.f64 a (sqrt.f64 #s(literal 2 binary64))))))) (*.f64 #s(literal 1/699840000 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64))) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/952342272000000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 5 binary64))) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/125971200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal -1/180 binary64) (/.f64 (*.f64 (*.f64 b b) (PI.f64)) (*.f64 a (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 (*.f64 b b) (PI.f64)) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))))))))))))) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/180 binary64) (/.f64 (*.f64 (*.f64 b b) (PI.f64)) (*.f64 a (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 (*.f64 b b) (PI.f64)) (*.f64 a (sqrt.f64 #s(literal 2 binary64))))))) (*.f64 #s(literal 1/699840000 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64))) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))))))))) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 (*.f64 b b) (PI.f64)) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))))))) angle))
#s(approx (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))) (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 b b) (*.f64 a (*.f64 angle (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))) (/.f64 (fma.f64 #s(literal 180 binary64) (/.f64 (*.f64 b b) (*.f64 a (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/180 binary64) (/.f64 (*.f64 (*.f64 b b) (PI.f64)) (*.f64 a (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 (*.f64 b b) (PI.f64)) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))))))) angle))
#s(approx (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))) (/.f64 (fma.f64 #s(literal 180 binary64) (/.f64 (*.f64 b b) (*.f64 a (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/180 binary64) (/.f64 (*.f64 (*.f64 b b) (PI.f64)) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 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 a (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/180 binary64) (/.f64 (*.f64 (*.f64 b b) (PI.f64)) (*.f64 a (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 (*.f64 b b) (PI.f64)) (*.f64 a (sqrt.f64 #s(literal 2 binary64))))))) (*.f64 #s(literal 1/699840000 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64))) (*.f64 a (sqrt.f64 #s(literal 2 binary64))))))))) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 (*.f64 b b) (PI.f64)) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))))))) angle))
#s(approx (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))) (/.f64 (fma.f64 #s(literal 180 binary64) (/.f64 (*.f64 b b) (*.f64 a (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/180 binary64) (/.f64 (*.f64 (*.f64 b b) (PI.f64)) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal 180 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 a (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 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 a (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal 180 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 a (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/180 binary64) (/.f64 (*.f64 (*.f64 b b) (PI.f64)) (*.f64 a (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 (*.f64 b b) (PI.f64)) (*.f64 a (sqrt.f64 #s(literal 2 binary64))))))) (*.f64 #s(literal 1/699840000 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64))) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/952342272000000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 5 binary64))) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/125971200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal -1/180 binary64) (/.f64 (*.f64 (*.f64 b b) (PI.f64)) (*.f64 a (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 (*.f64 b b) (PI.f64)) (*.f64 a (sqrt.f64 #s(literal 2 binary64))))))))))))) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/180 binary64) (/.f64 (*.f64 (*.f64 b b) (PI.f64)) (*.f64 a (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 (*.f64 b b) (PI.f64)) (*.f64 a (sqrt.f64 #s(literal 2 binary64))))))) (*.f64 #s(literal 1/699840000 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64))) (*.f64 a (sqrt.f64 #s(literal 2 binary64))))))))) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 (*.f64 b b) (PI.f64)) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))))))) angle))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) (*.f64 #s(literal 4 binary64) (*.f64 b y-scale)))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) (fma.f64 #s(literal 4 binary64) (*.f64 b y-scale) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (*.f64 b (*.f64 y-scale (*.f64 (PI.f64) (PI.f64)))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (*.f64 (PI.f64) (PI.f64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) (fma.f64 #s(literal 4 binary64) (*.f64 b y-scale) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (*.f64 b (*.f64 y-scale (*.f64 (PI.f64) (PI.f64)))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (*.f64 (PI.f64) (PI.f64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/6298560000 binary64) (*.f64 b (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 4 binary64)))) (*.f64 (*.f64 a a) (-.f64 (fma.f64 #s(literal -1/2099520000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 #s(literal -1/2099520000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))))))))))))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) (fma.f64 #s(literal 4 binary64) (*.f64 b y-scale) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (*.f64 b (*.f64 y-scale (*.f64 (PI.f64) (PI.f64)))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (*.f64 (PI.f64) (PI.f64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/6298560000 binary64) (*.f64 b (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 4 binary64)))) (fma.f64 (*.f64 a a) (-.f64 (fma.f64 #s(literal -1/2099520000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 #s(literal -1/2099520000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/6122200320000000 binary64) (*.f64 b (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 a a) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 #s(literal -1/51018336000000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))) (*.f64 #s(literal 1/1049760000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 #s(literal -1/64800 binary64) (*.f64 (PI.f64) (PI.f64)))))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))))) (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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 b (sqrt.f64 #s(literal 2 binary64))))) (fma.f64 #s(literal -1/64800 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal -1/2099520000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))))) (*.f64 #s(literal 1/816293376000000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))))))))))))))))
#s(approx (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4)) (*.f64 #s(literal 4 binary64) y-scale))
#s(approx (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4)) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 angle angle) (*.f64 y-scale (*.f64 (PI.f64) (PI.f64)))) (*.f64 #s(literal 4 binary64) y-scale)))
#s(approx (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4)) (fma.f64 #s(literal 4 binary64) y-scale (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (*.f64 y-scale (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/6298560000 binary64) (*.f64 (*.f64 angle angle) (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))
#s(approx (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4)) (fma.f64 #s(literal 4 binary64) y-scale (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (*.f64 y-scale (*.f64 (PI.f64) (PI.f64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/6122200320000000 binary64) (*.f64 (*.f64 angle angle) (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 #s(literal 1/6298560000 binary64) (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 4 binary64))))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) 4) #s(literal 4 binary64))
#s(approx (* (cos (* 1/180 (* angle (PI)))) 4) (+.f64 #s(literal 4 binary64) (*.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 angle angle) (*.f64 (PI.f64) (PI.f64))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) 4) (+.f64 #s(literal 4 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 #s(literal 1/6298560000 binary64) (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 4 binary64))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) 4) (+.f64 #s(literal 4 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/6122200320000000 binary64) (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 6 binary64))) (*.f64 #s(literal 1/6298560000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))
#s(approx (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (*.f64 y-scale (*.f64 (*.f64 (PI.f64) (PI.f64)) (sqrt.f64 #s(literal 8 binary64)))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (*.f64 (PI.f64) (PI.f64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/2099520000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 #s(literal -1/2099520000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (*.f64 (PI.f64) (PI.f64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (fma.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 #s(literal -1/51018336000000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))) (*.f64 #s(literal 1/1049760000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 #s(literal -1/64800 binary64) (*.f64 (PI.f64) (PI.f64)))))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))))) (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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 b (sqrt.f64 #s(literal 2 binary64))))) (fma.f64 #s(literal -1/64800 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal -1/2099520000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))))) (*.f64 #s(literal 1/816293376000000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))) (*.f64 (*.f64 a a) (-.f64 (fma.f64 #s(literal -1/2099520000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 #s(literal -1/2099520000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))))))))))
#s(approx (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (*.f64 (PI.f64) (PI.f64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (fma.f64 (*.f64 a a) (-.f64 (fma.f64 #s(literal -1/2099520000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 #s(literal -1/2099520000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 (*.f64 angle angle) (fma.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/9917964518400000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (*.f64 #s(literal 1/16200 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)))))))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/1049760000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/25194240000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (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 #s(literal 1/2099520000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) (*.f64 (fma.f64 #s(literal -1/32400 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 #s(literal -1/64800 binary64) (*.f64 (PI.f64) (PI.f64)))) (-.f64 (*.f64 #s(literal -1/51018336000000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))) (*.f64 #s(literal 1/1049760000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 #s(literal -1/64800 binary64) (*.f64 (PI.f64) (PI.f64)))))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))))))) (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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 b (sqrt.f64 #s(literal 2 binary64))))) (fma.f64 #s(literal -1/64800 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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 b (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 #s(literal -1/64800 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal -1/2099520000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))))) (*.f64 #s(literal 1/816293376000000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/793437161472000000000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/25194240000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal -1/2099520000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))))))) (*.f64 (*.f64 a a) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 #s(literal -1/51018336000000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))) (*.f64 #s(literal 1/1049760000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 #s(literal -1/64800 binary64) (*.f64 (PI.f64) (PI.f64)))))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))))) (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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 b (sqrt.f64 #s(literal 2 binary64))))) (fma.f64 #s(literal -1/64800 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal -1/2099520000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))))) (*.f64 #s(literal 1/816293376000000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))))))))))
#s(approx (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 y-scale (*.f64 (*.f64 (PI.f64) (PI.f64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 y-scale (*.f64 (*.f64 (PI.f64) (PI.f64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/2099520000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 #s(literal -1/2099520000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 y-scale (*.f64 (*.f64 (PI.f64) (PI.f64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/2099520000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 #s(literal -1/51018336000000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))) (*.f64 #s(literal 1/1049760000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 #s(literal -1/64800 binary64) (*.f64 (PI.f64) (PI.f64)))))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))))) (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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 b (sqrt.f64 #s(literal 2 binary64))))) (fma.f64 #s(literal -1/64800 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal -1/2099520000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))))) (*.f64 #s(literal 1/816293376000000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))))) (*.f64 #s(literal -1/2099520000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 y-scale (*.f64 (*.f64 (PI.f64) (PI.f64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/2099520000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 #s(literal -1/51018336000000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))) (*.f64 #s(literal 1/1049760000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 #s(literal -1/64800 binary64) (*.f64 (PI.f64) (PI.f64)))))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))))) (fma.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/9917964518400000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (*.f64 #s(literal 1/16200 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)))))))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/1049760000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/25194240000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (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 #s(literal 1/2099520000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) (*.f64 (fma.f64 #s(literal -1/32400 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 #s(literal -1/64800 binary64) (*.f64 (PI.f64) (PI.f64)))) (-.f64 (*.f64 #s(literal -1/51018336000000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))) (*.f64 #s(literal 1/1049760000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 #s(literal -1/64800 binary64) (*.f64 (PI.f64) (PI.f64)))))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))))))) (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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 b (sqrt.f64 #s(literal 2 binary64))))) (fma.f64 #s(literal -1/64800 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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 b (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 #s(literal -1/64800 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal -1/2099520000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))))) (*.f64 #s(literal 1/816293376000000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/793437161472000000000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/25194240000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal -1/2099520000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))))))))) (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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 b (sqrt.f64 #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/64800 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal -1/2099520000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))))) (*.f64 #s(literal 1/816293376000000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))))) (*.f64 #s(literal -1/2099520000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3))) (*.f64 #s(literal 1/1049760000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (pow.f64 angle #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))))
#s(approx (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3))) (*.f64 (pow.f64 angle #s(literal 4 binary64)) (fma.f64 #s(literal 1/1049760000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/51018336000000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))) (*.f64 #s(literal 1/1049760000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 #s(literal -1/64800 binary64) (*.f64 (PI.f64) (PI.f64)))))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))))))))
#s(approx (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3))) (*.f64 (pow.f64 angle #s(literal 4 binary64)) (fma.f64 #s(literal 1/1049760000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/51018336000000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (-.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/9917964518400000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (*.f64 #s(literal 1/16200 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)))))))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/1049760000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/25194240000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (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 #s(literal 1/2099520000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) (*.f64 (fma.f64 #s(literal -1/32400 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 #s(literal -1/64800 binary64) (*.f64 (PI.f64) (PI.f64)))) (-.f64 (*.f64 #s(literal -1/51018336000000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))) (*.f64 #s(literal 1/1049760000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 #s(literal -1/64800 binary64) (*.f64 (PI.f64) (PI.f64)))))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))))))))) (*.f64 #s(literal 1/1049760000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 #s(literal -1/64800 binary64) (*.f64 (PI.f64) (PI.f64)))))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))))))))
#s(approx (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3))) (*.f64 (pow.f64 angle #s(literal 4 binary64)) (fma.f64 #s(literal 1/1049760000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/51018336000000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 (*.f64 angle angle) (-.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (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 #s(literal 1/16200 binary64) (*.f64 (*.f64 (PI.f64) (PI.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)))))))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/1049760000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/64800 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))))) (fma.f64 #s(literal -1/408146688000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (fma.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/24488801280000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) (fma.f64 (fma.f64 #s(literal -1/32400 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 #s(literal -1/64800 binary64) (*.f64 (PI.f64) (PI.f64)))) (-.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/9917964518400000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (*.f64 #s(literal 1/16200 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)))))))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/1049760000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/25194240000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (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 #s(literal 1/2099520000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) (*.f64 (fma.f64 #s(literal -1/32400 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 #s(literal -1/64800 binary64) (*.f64 (PI.f64) (PI.f64)))) (-.f64 (*.f64 #s(literal -1/51018336000000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))) (*.f64 #s(literal 1/1049760000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 #s(literal -1/64800 binary64) (*.f64 (PI.f64) (PI.f64)))))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))))))) (*.f64 (fma.f64 #s(literal 1/25194240000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (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 #s(literal 1/2099520000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))) (-.f64 (*.f64 #s(literal -1/51018336000000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))) (*.f64 #s(literal 1/1049760000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 #s(literal -1/64800 binary64) (*.f64 (PI.f64) (PI.f64)))))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))))))))) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/9917964518400000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (*.f64 #s(literal 1/16200 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)))))))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/1049760000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/25194240000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (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 #s(literal 1/2099520000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) (*.f64 (fma.f64 #s(literal -1/32400 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 #s(literal -1/64800 binary64) (*.f64 (PI.f64) (PI.f64)))) (-.f64 (*.f64 #s(literal -1/51018336000000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))) (*.f64 #s(literal 1/1049760000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 #s(literal -1/64800 binary64) (*.f64 (PI.f64) (PI.f64)))))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))))))))) (*.f64 #s(literal 1/1049760000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 #s(literal -1/64800 binary64) (*.f64 (PI.f64) (PI.f64)))))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))))))))
#s(approx (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (*.f64 #s(literal 1/1049760000 binary64) (*.f64 (*.f64 a a) (*.f64 (pow.f64 angle #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))))))
#s(approx (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (*.f64 (pow.f64 angle #s(literal 4 binary64)) (fma.f64 #s(literal -1/51018336000000 binary64) (*.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64)))))) (*.f64 #s(literal 1/1049760000 binary64) (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))))))))
#s(approx (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (*.f64 (pow.f64 angle #s(literal 4 binary64)) (fma.f64 #s(literal 1/1049760000 binary64) (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/51018336000000 binary64) (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/9917964518400000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (*.f64 #s(literal 1/16200 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))))))))))))))))
#s(approx (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (*.f64 (pow.f64 angle #s(literal 4 binary64)) (fma.f64 #s(literal 1/1049760000 binary64) (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/51018336000000 binary64) (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 angle angle) (fma.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/9917964518400000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (*.f64 #s(literal 1/16200 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))))))))) (*.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (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 #s(literal 1/16200 binary64) (*.f64 (*.f64 (PI.f64) (PI.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))))))))))))))))))
#s(approx (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (*.f64 #s(literal 1/1049760000 binary64) (*.f64 (pow.f64 angle #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))))))
#s(approx (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (*.f64 (pow.f64 angle #s(literal 4 binary64)) (fma.f64 #s(literal -1/51018336000000 binary64) (*.f64 (*.f64 angle angle) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 #s(literal 1/1049760000 binary64) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))))))
#s(approx (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (*.f64 (pow.f64 angle #s(literal 4 binary64)) (fma.f64 #s(literal 1/1049760000 binary64) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/51018336000000 binary64) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 angle angle) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/9917964518400000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (*.f64 #s(literal 1/16200 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)))))))))))))))
#s(approx (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (*.f64 (pow.f64 angle #s(literal 4 binary64)) (fma.f64 #s(literal 1/1049760000 binary64) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/51018336000000 binary64) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 angle angle) (fma.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/9917964518400000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (*.f64 #s(literal 1/16200 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)))))))) (*.f64 (*.f64 angle angle) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (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 #s(literal 1/16200 binary64) (*.f64 (*.f64 (PI.f64) (PI.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)))))))))))))))))
#s(approx (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)) (*.f64 #s(literal 1/1049760000 binary64) (*.f64 (pow.f64 angle #s(literal 4 binary64)) (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))))
#s(approx (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)) (*.f64 (pow.f64 angle #s(literal 4 binary64)) (fma.f64 #s(literal -1/51018336000000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 #s(literal 1/1049760000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))))))
#s(approx (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)) (*.f64 (pow.f64 angle #s(literal 4 binary64)) (fma.f64 #s(literal 1/1049760000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/51018336000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))) (*.f64 (*.f64 angle angle) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/9917964518400000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (*.f64 #s(literal 1/16200 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))))))))))))))
#s(approx (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)) (*.f64 (pow.f64 angle #s(literal 4 binary64)) (fma.f64 #s(literal 1/1049760000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/51018336000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/9917964518400000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (*.f64 #s(literal 1/16200 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))))))) (*.f64 (*.f64 angle angle) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (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 #s(literal 1/16200 binary64) (*.f64 (*.f64 (PI.f64) (PI.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))))))))))))))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 4) (*.f64 #s(literal 1/1049760000 binary64) (pow.f64 (*.f64 angle (PI.f64)) #s(literal 4 binary64))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 4) (*.f64 (pow.f64 angle #s(literal 4 binary64)) (fma.f64 #s(literal -1/51018336000000 binary64) (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 6 binary64))) (*.f64 #s(literal 1/1049760000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 4) (*.f64 (pow.f64 angle #s(literal 4 binary64)) (fma.f64 #s(literal 1/1049760000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/51018336000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/9917964518400000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (*.f64 #s(literal 1/16200 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)))))))))))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 4) (*.f64 (pow.f64 angle #s(literal 4 binary64)) (fma.f64 #s(literal 1/1049760000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/51018336000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/9917964518400000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (fma.f64 #s(literal 1/16200 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))))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (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 #s(literal 1/16200 binary64) (*.f64 (*.f64 (PI.f64) (PI.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))))))))))))))))
#s(approx (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))
#s(approx (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)) (fma.f64 (*.f64 angle angle) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 #s(literal -1/64800 binary64) (*.f64 (PI.f64) (PI.f64)))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))))
#s(approx (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)) (fma.f64 (*.f64 angle angle) (fma.f64 (*.f64 angle angle) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/25194240000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (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 #s(literal 1/2099520000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 #s(literal -1/64800 binary64) (*.f64 (PI.f64) (PI.f64))))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))))
#s(approx (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)) (fma.f64 (*.f64 angle angle) (fma.f64 (*.f64 angle angle) (fma.f64 (*.f64 angle angle) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/64800 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))))) (fma.f64 #s(literal -1/408146688000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (fma.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/24488801280000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/25194240000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (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 #s(literal 1/2099520000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 #s(literal -1/64800 binary64) (*.f64 (PI.f64) (PI.f64))))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3) (fma.f64 (*.f64 angle angle) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 #s(literal -1/64800 binary64) (*.f64 (PI.f64) (PI.f64))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3) (fma.f64 (*.f64 angle angle) (fma.f64 (*.f64 angle angle) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/25194240000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (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 #s(literal 1/2099520000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 #s(literal -1/64800 binary64) (*.f64 (PI.f64) (PI.f64)))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3) (fma.f64 (*.f64 angle angle) (fma.f64 (*.f64 angle angle) (fma.f64 (*.f64 angle angle) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/64800 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))))) (fma.f64 #s(literal -1/408146688000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (fma.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/24488801280000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/25194240000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (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 #s(literal 1/2099520000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 #s(literal -1/64800 binary64) (*.f64 (PI.f64) (PI.f64)))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (+.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1/64800 binary64) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 (PI.f64) (PI.f64)) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (+.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 #s(literal 1/25194240000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (+.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/24488801280000000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/25194240000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 y-scale (*.f64 (*.f64 (PI.f64) (PI.f64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 y-scale (*.f64 (*.f64 (PI.f64) (PI.f64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal -1/2099520000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 y-scale (*.f64 (*.f64 (PI.f64) (PI.f64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (-.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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 b (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 #s(literal -1/64800 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal -1/2099520000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))))) (*.f64 #s(literal 1/816293376000000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))))))) (*.f64 #s(literal -1/2099520000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 y-scale (*.f64 (*.f64 (PI.f64) (PI.f64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 (*.f64 angle angle) (-.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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 b (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 #s(literal -1/64800 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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 b (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 #s(literal -1/64800 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal -1/2099520000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))))) (*.f64 #s(literal 1/816293376000000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/793437161472000000000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/25194240000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal -1/2099520000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))))))))) (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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 b (sqrt.f64 #s(literal 2 binary64))))) (fma.f64 #s(literal -1/64800 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal -1/2099520000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))))) (*.f64 #s(literal 1/816293376000000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))))))) (*.f64 #s(literal -1/2099520000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (*.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 angle angle) (*.f64 y-scale (*.f64 (*.f64 (PI.f64) (PI.f64)) (sqrt.f64 #s(literal 8 binary64)))))))
#s(approx (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (*.f64 (*.f64 angle angle) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 #s(literal 1/32400 binary64) (*.f64 y-scale (*.f64 (*.f64 (PI.f64) (PI.f64)) (sqrt.f64 #s(literal 8 binary64))))))))
#s(approx (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (*.f64 y-scale (*.f64 (*.f64 (PI.f64) (PI.f64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 angle angle) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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 (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (*.f64 y-scale (*.f64 (*.f64 (PI.f64) (PI.f64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 angle angle) (fma.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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 angle angle) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)) (*.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 (PI.f64) (PI.f64)) (sqrt.f64 #s(literal 8 binary64))))))
#s(approx (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (sqrt.f64 #s(literal 8 binary64)))))))
#s(approx (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (sqrt.f64 #s(literal 8 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))) (*.f64 (*.f64 angle angle) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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) (sqrt 8)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (sqrt.f64 #s(literal 8 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 (sqrt.f64 #s(literal 8 binary64)) (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 angle angle) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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 (pow (sin (* 1/180 (* angle (PI)))) 2) (*.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 angle angle) (*.f64 (PI.f64) (PI.f64)))))
#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 (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) (fma.f64 #s(literal -1/64800 binary64) (*.f64 (*.f64 angle angle) (*.f64 b (*.f64 (*.f64 (PI.f64) (PI.f64)) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) (fma.f64 b (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (*.f64 b (*.f64 (*.f64 (PI.f64) (PI.f64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/25194240000 binary64) (*.f64 (*.f64 angle angle) (*.f64 b (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) (fma.f64 b (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (*.f64 b (*.f64 (*.f64 (PI.f64) (PI.f64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/24488801280000000 binary64) (*.f64 (*.f64 angle angle) (*.f64 b (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal 1/25194240000 binary64) (*.f64 b (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a (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 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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)))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (sqrt.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))))))
#s(approx (cos (* 1/180 (* angle (PI)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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)))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (sqrt.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))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4)) (*.f64 #s(literal 4 binary64) (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) 4) (*.f64 #s(literal 4 binary64) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
#s(approx (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))))
#s(approx (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 4) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))))
#s(approx (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))
#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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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)))))) (sqrt.f64 (/.f64 #s(literal 1 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 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))))) (sqrt.f64 (/.f64 #s(literal 1 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 #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))) #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)))))))))) (sqrt.f64 (/.f64 #s(literal 1 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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))))) (sqrt.f64 (/.f64 #s(literal 1 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 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))) #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))))))))) (sqrt.f64 (/.f64 #s(literal 1 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 #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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)))) (-.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 (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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 #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 #s(literal 1/4 binary64) (/.f64 (pow.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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))) #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)))))))) (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)))))))))) (sqrt.f64 (/.f64 #s(literal 1 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))))))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (sqrt.f64 #s(literal 8 binary64))) (sqrt.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)))))))
#s(approx (* x-scale (* y-scale (sqrt 8))) (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))))
#s(approx x-scale x-scale)
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 #s(literal 1 binary64) x-scale) (sqrt.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)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 x-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 x-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 x-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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)))) (-.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)))) (*.f64 #s(literal 1/2 binary64) (/.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 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 2 binary64) (/.f64 (pow.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 #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))))))))) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 x-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 x-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 x-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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)))) (-.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)))) (*.f64 #s(literal 1/2 binary64) (/.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 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 2 binary64) (/.f64 (pow.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 #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))))))))) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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))))))))
#s(approx (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) x-scale) (sqrt.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))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 x-scale (*.f64 (*.f64 y-scale y-scale) (*.f64 (sqrt.f64 #s(literal 8 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)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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/8 binary64) (*.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 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))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 x-scale (*.f64 (*.f64 y-scale y-scale) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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))) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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/8 binary64) (*.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 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))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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/8 binary64) (*.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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))) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 x-scale (*.f64 (*.f64 y-scale y-scale) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (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 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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))) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.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 (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))))))
#s(approx (* y-scale (sqrt 8)) (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))
#s(approx y-scale y-scale)
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) (*.f64 y-scale (fma.f64 #s(literal 4 binary64) (*.f64 b (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) (*.f64 (*.f64 a a) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 y-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)) (/.f64 #s(literal 1 binary64) (sqrt.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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 y-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 y-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #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 #s(literal 1/2 binary64) (/.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 #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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))) (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))))))))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)) (/.f64 #s(literal 1 binary64) (sqrt.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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #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 #s(literal 1/2 binary64) (/.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 #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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))) (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))))))))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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)))))))))))))
#s(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -4 binary64) (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 (*.f64 a a) (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)) (sqrt.f64 #s(literal 8 binary64))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))))))))))
#s(approx (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 a a) (*.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)) (sqrt.f64 #s(literal 8 binary64))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))))))))
#s(approx (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (*.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)) (sqrt.f64 #s(literal 8 binary64))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))))))))

eval746.0ms (3.3%)

Memory
74.0MiB live, 1 095.9MiB allocated; 141ms collecting garbage
Compiler

Compiled 208 545 to 5 356 computations (97.4% saved)

prune1.2s (5.5%)

Memory
-50.3MiB live, 1 494.6MiB allocated; 259ms collecting garbage
Pruning

80 alts after pruning (79 fresh and 1 done)

PrunedKeptTotal
New55026576
Fresh65359
Picked415
Done000
Total56080640
Accuracy
66.9%
Counts
640 → 80
Alt Table
Click to see full alt table
StatusAccuracyProgram
2.2%
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (exp.f64 (*.f64 (log.f64 (*.f64 x-scale y-scale)) #s(literal 2 binary64)))))
2.9%
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (- (/ (* b b) (* x-scale x-scale)) (/ (* a a) (* y-scale y-scale))) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)))))))) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
2.2%
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.f64 #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 (/.f64 a y-scale) (/.f64 a y-scale) (/.f64 (*.f64 b b) (*.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 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
1.2%
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.f64 #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 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))))))) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
▶2.5%
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) #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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 y-scale y-scale)))))) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
0.7%
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (hypot.f64 (-.f64 #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))) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))
0.2%
(/.f64 (neg.f64 (sqrt.f64 #s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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)))))) (*.f64 x-scale x-scale)))) (*.f64 y-scale y-scale))))) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
2.8%
(/.f64 (neg.f64 #s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 4 binary64))) (*.f64 (*.f64 x-scale x-scale) y-scale)))) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
0.2%
(/.f64 #s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
4.6%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 x-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))))
9.2%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 b (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))))))))
7.0%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 a (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.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 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))))))
42.4%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))
▶42.9%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))
42.4%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b #s(approx (cos (* 1/180 (* angle (PI)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/64800 binary64) (*.f64 (*.f64 angle angle) (*.f64 (PI.f64) (PI.f64))))))) #s(literal 2 binary64))))))))
30.4%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.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)))))))))
42.8%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) #s(approx (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (*.f64 b b))))))))
26.7%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.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 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))
27.1%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (exp.f64 (*.f64 (log.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.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))))))))
25.3%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 #s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) (fma.f64 #s(literal 2 binary64) (*.f64 b b) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))))))))))
33.8%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 #s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) (*.f64 #s(literal 2 binary64) (*.f64 b b)))))))
35.7%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
17.1%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (pow.f64 (*.f64 b #s(approx (cos (* 1/180 (* angle (PI)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/64800 binary64) (*.f64 (*.f64 angle angle) (*.f64 (PI.f64) (PI.f64))))))) #s(literal 2 binary64)) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
9.2%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (exp.f64 (*.f64 (log.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) #s(literal 2 binary64))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
7.4%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) (/.f64 #s(approx (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64)))) (*.f64 b b))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
7.9%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 a a) a) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))))
26.3%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64)))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))))))
4.4%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) #s(literal 3 binary64))) (fma.f64 (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))))
31.8%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
36.3%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))
▶10.7%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
8.3%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))))
7.5%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
10.8%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))))
9.7%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
9.3%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(approx (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (/.f64 (fma.f64 #s(literal 180 binary64) (/.f64 (*.f64 b b) (*.f64 a (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/180 binary64) (/.f64 (*.f64 (*.f64 b b) (PI.f64)) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/34992000 binary64) (*.f64 a (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 180 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 a (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))))) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/180 binary64) (/.f64 (*.f64 (*.f64 b b) (PI.f64)) (*.f64 a (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 (*.f64 b b) (PI.f64)) (*.f64 a (sqrt.f64 #s(literal 2 binary64))))))) (*.f64 #s(literal 1/699840000 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64))) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))))))))) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 (*.f64 b b) (PI.f64)) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))))))) angle))))))
10.6%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(approx (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 b b) (*.f64 a (*.f64 angle (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))))))))))
20.6%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))
▶40.7%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))
21.3%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 b (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))))))
20.3%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 a (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))))
32.1%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) #s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))
10.7%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) #s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))
1.4%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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)) (exp.f64 (*.f64 (log.f64 x-scale) #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))))))))
1.7%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))
1.6%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 #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 b) (*.f64 x-scale x-scale))))))))
8.3%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)))))
3.0%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (sqrt.f64 #s(literal 2 binary64))) x-scale)))))
14.6%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.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) (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (*.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)))))))))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)))))
14.7%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 #s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64))) (*.f64 #s(literal 1/180 binary64) (PI.f64))))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)))))
11.7%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 #s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)))))
14.6%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 #s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/30855889612800000000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/22674816000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (sqrt.f64 #s(literal 2 binary64)))))))))))) x-scale)))))
14.7%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 #s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (*.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64)))))))) x-scale)))))
11.7%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 #s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))))) x-scale)))))
14.7%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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(approx (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (*.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (*.f64 a (*.f64 (*.f64 angle angle) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64)))))))) x-scale)))))
11.7%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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(approx (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))))) x-scale)))))
12.8%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 a (*.f64 x-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
7.3%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 b (+.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) x-scale) (/.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) (*.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))))
26.7%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (/.f64 (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale))))))
11.3%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (/.f64 (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale))))))
38.8%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) x-scale) (sqrt.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)))))))))))
21.7%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 b (+.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) x-scale) (/.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) (*.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))))
10.5%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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(approx (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (/.f64 (*.f64 a (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64)))) x-scale) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (/.f64 (*.f64 a (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (sqrt.f64 #s(literal 2 binary64)))) x-scale) (*.f64 #s(literal 1/22674816000000 binary64) (/.f64 (*.f64 a (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (sqrt.f64 #s(literal 2 binary64))))) x-scale)))))))))))
11.7%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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(approx (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale) (*.f64 #s(literal 1/180 binary64) (/.f64 (*.f64 a (*.f64 angle (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))) x-scale)))))))
0.4%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 b (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))))))
0.4%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 a (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))))
4.7%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
10.9%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 a a) #s(approx (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
5.2%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (exp.f64 (*.f64 (log.f64 a) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
2.6%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) #s(approx (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (*.f64 (PI.f64) (PI.f64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/2099520000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 #s(literal -1/2099520000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))))))))))
14.7%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
1.3%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 b (*.f64 y-scale #s(literal 4 binary64)))))))
2.9%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (sqrt.f64 #s(literal 8 binary64))) (sqrt.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)))))))))
7.5%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))
▶3.0%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale #s(literal 4 binary64))))))
9.7%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))
4.1%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) (fma.f64 #s(literal 4 binary64) (*.f64 b y-scale) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (*.f64 b (*.f64 y-scale (*.f64 (PI.f64) (PI.f64)))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (*.f64 (PI.f64) (PI.f64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))))))))))
0.1%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 x-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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)))))))))))
0.1%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.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 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))))))
✓36.6%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(approx (* 1/4 (* b (* y-scale 4))) (*.f64 b y-scale)))
Compiler

Compiled 42 923 to 15 121 computations (64.8% saved)

series792.0ms (3.5%)

Memory
17.1MiB live, 773.9MiB allocated; 84ms collecting garbage
Counts
73 → 666
Calls
Call 1
Inputs
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))
(*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))
#s(literal 1/4 binary64)
(*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64))))))
(*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))
y-scale
(sqrt.f64 #s(literal 8 binary64))
#s(literal 8 binary64)
(sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)))))
(fma.f64 #s(literal 2 binary64) (pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64))))
#s(literal 2 binary64)
(pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))) #s(literal 2 binary64))
#s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64)))))
(*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))
#s(literal 1/180 binary64)
(*.f64 a (*.f64 angle (PI.f64)))
a
(*.f64 angle (PI.f64))
angle
(PI.f64)
(*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)))
(pow.f64 (*.f64 b (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64))
(*.f64 b (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
b
(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)))
(/.f64 (PI.f64) #s(literal 2 binary64))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale #s(literal 4 binary64))))))
(*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale #s(literal 4 binary64)))))
#s(literal -1/4 binary64)
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale #s(literal 4 binary64))))
(*.f64 b (*.f64 y-scale #s(literal 4 binary64)))
(*.f64 y-scale #s(literal 4 binary64))
#s(literal 4 binary64)
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
(*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))
(*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #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)))
(sqrt.f64 #s(literal 2 binary64))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))
(*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))
(*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))
(*.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))
x-scale
(sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.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 (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))
(pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))
(*.f64 a (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(literal 2 binary64) (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 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) #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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 y-scale y-scale)))))) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
(neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) #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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 y-scale y-scale))))))
(sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) #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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 y-scale y-scale)))))
(*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) #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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 y-scale y-scale))))
(*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))
(*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
(/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))
(*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))
(*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))
(*.f64 b a)
(*.f64 b (neg.f64 a))
(neg.f64 a)
(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))
(*.f64 x-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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (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 (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 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 y-scale y-scale))
(*.f64 y-scale y-scale)
Outputs
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (* (pow a 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (* (pow a 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (pow a 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (* 1/4 (* b (* y-scale (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (* (sqrt 2) (sqrt 8)))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* b (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow a 2) (+ (* -1/8 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/4 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow a 2) (+ (* 1/4 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2))))) (* (pow a 2) (+ (* -1/8 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/8 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 5) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 5) (pow (sqrt 2) 5))))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (* b (* y-scale (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (+ (* b (* y-scale (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (* (sqrt 2) (sqrt 8))))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* b (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (+ (* b (* y-scale (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (+ (* b (* y-scale (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow a 2) (+ (* (pow a 2) (+ (* -1/2 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 5) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (* b (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2)))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (+ (* b (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* b (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2)))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (+ (* b (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2))) (* (pow a 2) (+ (* -1/2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 3) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 3) (pow (sqrt 2) 3))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* b (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (+ (* b (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2))) (* (pow a 2) (+ (* (pow a 2) (+ (* -1/2 (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (* (pow b 3) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 6)) (* (pow b 5) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* b (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2)))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))) #s(hole binary64 (* 2 (* (pow b 2) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2)))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))) #s(hole binary64 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 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 (* 1/180 (* a (* angle (PI)))) #s(hole binary64 (* 1/180 (* a (* angle (PI))))))
#s(approx (* a (* angle (PI))) #s(hole binary64 (* a (* angle (PI)))))
#s(approx a #s(hole binary64 a))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* -1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow a 2) (+ (* -1/4 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (* 1/8 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow a 2) (+ (* -1/4 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (* (pow a 2) (+ (* -1/8 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 5) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (* 1/8 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow a 2) (+ (* (pow a 2) (+ (* -1/2 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 5) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* 1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow a 2) (+ (* -1/8 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/4 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow a 2) (+ (* 1/4 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (* (pow a 2) (+ (* -1/8 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/8 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 5) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow a 2) (+ (* (pow a 2) (+ (* -1/2 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 5) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) (* (pow a 2) (+ (* -1/2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) (* (pow a 2) (+ (* (pow a 2) (+ (* -1/2 (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 6)) (* (pow b 5) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) #s(hole binary64 (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* 1/4 (* b (* x-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* x-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* 1/4 (/ (* (pow a 2) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* b (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* x-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow a 2) (+ (* -1/8 (/ (* (pow a 2) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/4 (/ (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* x-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow a 2) (+ (* 1/4 (/ (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (* (pow a 2) (+ (* -1/8 (/ (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/8 (/ (* (pow a 2) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 5) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* b (* x-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* b (* x-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (/ (* (pow a 2) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* b (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* b (* x-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow a 2) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* b (* x-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow a 2) (+ (* (pow a 2) (+ (* -1/2 (/ (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow a 2) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 5) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* b (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* b (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* b (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* b (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (* (pow a 2) (+ (* -1/2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* b (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* b (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (* (pow a 2) (+ (* (pow a 2) (+ (* -1/2 (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (* (pow b 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 6)) (* (pow b 5) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* b (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (pow (* a (cos (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))
#s(approx (* a (cos (* 1/180 (* angle (PI))))) #s(hole binary64 (* a (cos (* 1/180 (* angle (PI)))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (* (pow a 2) (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (pow a 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* (pow b 4) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow b 4) (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 4) (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow a 2) (+ (* 4 (* (/ (* (pow a 2) (* (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 (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 x-scale 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)))))) (* 8 (/ (* (pow b 4) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 4) (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow a 2) (+ (* 8 (/ (* (pow b 4) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow a 2) (+ (* -2 (* (/ (* (pow a 2) (* (pow b 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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 x-scale 2) (pow y-scale 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))))) (* 4 (* (/ (* (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 (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 x-scale 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 (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) #s(hole binary64 (* 8 (/ (* (pow a 4) (pow b 4)) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -8 (/ (* (pow a 2) (pow b 2)) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* -4 (/ (* (pow a 2) (pow b 2)) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* 4 (* (* b a) (* b (neg a)))) #s(hole binary64 (* -4 (* (pow a 2) (pow b 2)))))
#s(approx (* (* b a) (* b (neg a))) #s(hole binary64 (* -1 (* (pow a 2) (pow b 2)))))
#s(approx (* b a) #s(hole binary64 (* a b)))
#s(approx (* b (neg a)) #s(hole binary64 (* -1 (* a b))))
#s(approx (neg a) #s(hole binary64 (* -1 a)))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (pow (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (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 (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (/ (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 (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))))))))) (+ (/ (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 (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 (/ (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (* y-scale y-scale)) #s(hole binary64 (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (/ (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (* y-scale y-scale)) #s(hole binary64 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 4)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 6)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 4)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (* 1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (* a (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (* a (+ (* -1/8 (/ (* (pow b 4) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (* a (+ (* -1/8 (/ (* (pow b 4) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/8 (/ (* (pow b 6) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (* a (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (* a (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 4)) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 4)) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 6)) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))) #s(hole binary64 (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))) #s(hole binary64 (* (pow a 2) (+ (* 2 (/ (* (pow b 2) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2)) (pow a 2))) (* 2 (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (* -1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* -1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (* -1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (* 1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (* -1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (+ (* -1/8 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (* 1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* 1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (+ (* -1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (+ (* -1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/8 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* a (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* a (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (pow (cos (* 1/180 (* angle (PI)))) 6)) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* 1/4 (* a (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (+ (* 1/4 (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (+ (* -1/8 (/ (* (pow b 4) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/4 (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (+ (* -1/8 (/ (* (pow b 4) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/8 (/ (* (pow b 6) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* 1/4 (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* a (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* a (+ (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* a (+ (* -1/2 (/ (* (pow b 4) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* a (+ (* -1/2 (/ (* (pow b 4) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* a (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* a (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (pow (sin (* 1/180 (* angle (PI)))) 6)) (* (pow a 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))
#s(approx (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (* (pow a 2) (+ (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow a 2))) (* 2 (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 3) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 6) (* (pow b 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 6) (+ (* 8 (/ (* (pow b 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow b 4) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow a 2) (* (pow x-scale 2) (pow y-scale 2)))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 6) (+ (* 4 (* (/ (* (pow b 4) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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) (* (pow x-scale 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)))))) (+ (* 8 (/ (* (pow b 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow b 4) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow a 2) (* (pow x-scale 2) (pow y-scale 2))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 6) (+ (* -2 (* (/ (* (pow b 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) (* (pow x-scale 2) (pow y-scale 2)))) (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))))) (+ (* 4 (* (/ (* (pow b 4) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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) (* (pow x-scale 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)))))) (+ (* 8 (/ (* (pow b 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow b 4) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow a 2) (* (pow x-scale 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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))) (+ (/ (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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)))))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 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)) (/ (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) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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)))))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 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)) (/ (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) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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)))))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (/ (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (* y-scale y-scale)) #s(hole binary64 (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (/ (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (* y-scale y-scale)) #s(hole binary64 (* (pow a 2) (+ (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow y-scale 2)))) (* 2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 4)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 6)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 4)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (* -1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (* -1 (* a (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (* -1 (* a (+ (* -1/8 (/ (* (pow b 4) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (* -1 (* a (+ (* -1/8 (/ (* (pow b 4) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/8 (/ (* (pow b 6) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (* -1 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (* -1 (* a (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (* -1 (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (* -1 (* a (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 4)) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 4)) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 6)) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* 1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (* -1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* -1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (* -1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (* 1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (* -1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (+ (* -1/8 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (* 1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (+ (* -1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (+ (* -1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/8 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* a (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* a (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (pow (cos (* 1/180 (* angle (PI)))) 6)) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1/4 (* a (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (+ (* 1/4 (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (+ (* -1/8 (/ (* (pow b 4) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/4 (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (+ (* -1/8 (/ (* (pow b 4) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/8 (/ (* (pow b 6) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* 1/4 (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* a (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* a (+ (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* a (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* a (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (pow (sin (* 1/180 (* angle (PI)))) 6)) (* (pow a 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow a 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow a 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow a 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 3) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow a 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow a 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow a 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 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) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))) (sqrt (/ 1 (+ (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 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) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (sqrt (/ 1 (+ (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 (cos (* 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) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))) (sqrt (/ 1 (+ (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 (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 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (+ (* 1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2) (sqrt 8)))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (+ (* 1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow b 2) (+ (* -1/8 (/ (* (pow b 2) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 4) (sqrt 8)))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/4 (/ (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (+ (* 1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow b 2) (+ (* 1/4 (/ (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (* (pow b 2) (+ (* -1/8 (/ (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 4) (sqrt 8))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/8 (/ (* (pow b 2) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 6) (sqrt 8)))) (* (pow a 5) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (+ (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (/ (* (pow b 2) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2) (sqrt 8)))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (+ (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow b 2) (+ (* -1/2 (/ (* (pow b 2) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 4) (sqrt 8)))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (+ (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow b 2) (+ (* (pow b 2) (+ (* -1/2 (/ (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 4) (sqrt 8))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow b 2) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 6) (sqrt 8)))) (* (pow a 5) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (* (pow b 2) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2)) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (* (pow b 2) (+ (* -1/2 (/ (* (pow b 2) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 4)) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (* (pow b 2) (+ (* (pow b 2) (+ (* -1/2 (/ (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 4) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow b 2) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 6)) (* (pow a 5) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)) #s(hole binary64 (* 2 (* (pow b 2) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2)))))
#s(approx (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2) #s(hole binary64 (* (pow b 2) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2))))
#s(approx (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) #s(hole binary64 (* b (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))))))
#s(approx b #s(hole binary64 b))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* -1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow b 2) (+ (* -1/4 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (* 1/8 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow b 2) (+ (* -1/4 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (* (pow b 2) (+ (* -1/8 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 5) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (* 1/8 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow b 2) (+ (* -1/2 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow b 2) (+ (* (pow b 2) (+ (* -1/2 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 5) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* b (* y-scale 4)) #s(hole binary64 (* 4 (* b y-scale))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow b 2) (+ (* -1/8 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/4 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow b 2) (+ (* 1/4 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (* (pow b 2) (+ (* -1/8 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/8 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 5) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow b 2) (+ (* -1/2 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow b 2) (+ (* (pow b 2) (+ (* -1/2 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 5) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (* (pow b 2) (+ (* -1/2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (* (pow b 2) (+ (* (pow b 2) (+ (* -1/2 (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 6)) (* (pow a 5) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* a (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* 1/4 (/ (* (pow b 2) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* a (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* a (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow b 2) (+ (* -1/8 (/ (* (pow b 2) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/4 (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* a (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow b 2) (+ (* 1/4 (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (* (pow b 2) (+ (* -1/8 (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow a 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/8 (/ (* (pow b 2) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 5) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* a (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (/ (* (pow b 2) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* a (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* a (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow b 2) (+ (* -1/2 (/ (* (pow b 2) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* a (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow b 2) (+ (* (pow b 2) (+ (* -1/2 (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow a 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow b 2) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 5) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* a (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* a (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* a (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) (* (pow b 2) (+ (* -1/2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow a 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* a (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* a (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) (* (pow b 2) (+ (* (pow b 2) (+ (* -1/2 (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (* (pow a 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 6)) (* (pow a 5) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* a (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (* (pow b 2) (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 4) (* (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 (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow b 2) (+ (* 4 (* (/ (* (pow a 4) (* (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))))))) (* (pow x-scale 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)))))) (* 8 (/ (* (pow a 4) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow b 2) (+ (* 8 (/ (* (pow a 4) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow b 2) (+ (* -2 (* (/ (* (pow a 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)))))))) (* (pow x-scale 2) (pow y-scale 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))))) (* 4 (* (/ (* (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 (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 x-scale 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 (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (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 (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (/ (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 (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))))))))) (+ (/ (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 4)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 6)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 4)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (* b (+ (* 1/4 (* y-scale (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2)))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (* b (+ (* -1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/4 (* y-scale (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (* b (+ (* -1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/8 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* 1/4 (* y-scale (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2)))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (* b (+ (* y-scale (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (* b (+ (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (pow (sin (* 1/180 (* angle (PI)))) 6)) (* (pow b 6) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2))))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))) #s(hole binary64 (* (pow b 2) (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow b 2))) (* 2 (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (* -1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* -1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (* -1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (* 1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (* -1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (+ (* -1/8 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (* 1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (+ (* 1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (+ (* -1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (+ (* -1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/8 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* 1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* b (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* b (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (pow (sin (* 1/180 (* angle (PI)))) 6)) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (+ (* 1/4 (* x-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (+ (* -1/8 (/ (* (pow a 4) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/4 (* x-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (+ (* -1/8 (/ (* (pow a 4) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/8 (/ (* (pow a 6) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* 1/4 (* x-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* b (+ (* x-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* b (+ (* -1/2 (/ (* (pow a 4) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* x-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* b (+ (* -1/2 (/ (* (pow a 4) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* x-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* b (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (pow (cos (* 1/180 (* angle (PI)))) 6)) (* (pow b 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (* (pow b 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow b 2))) (* 2 (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 3) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 6) (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 6) (+ (* 8 (/ (* (pow a 4) (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (+ (* 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 (cos (* 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 x-scale 2) (pow y-scale 2)))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 6) (+ (* 4 (* (/ (* (pow a 4) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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) (* (pow x-scale 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)))))) (+ (* 8 (/ (* (pow a 4) (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (+ (* 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 (cos (* 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 x-scale 2) (pow y-scale 2))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 6) (+ (* -2 (* (/ (* (pow a 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) (* (pow x-scale 2) (pow y-scale 2)))) (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))))) (+ (* 4 (* (/ (* (pow a 4) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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) (* (pow x-scale 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)))))) (+ (* 8 (/ (* (pow a 4) (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (+ (* 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 (cos (* 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 x-scale 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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))) (+ (/ (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 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)) (/ (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 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)) (/ (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (/ (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (* y-scale y-scale)) #s(hole binary64 (* (pow b 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2)))) (* 2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 4)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 6)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 4)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (* -1/4 (* b (* y-scale (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (* -1 (* b (+ (* 1/4 (* y-scale (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (* -1 (* b (+ (* -1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/4 (* y-scale (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (* -1 (* b (+ (* -1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/8 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* 1/4 (* y-scale (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2))))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (* -1 (* b (* y-scale (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (* -1 (* b (+ (* y-scale (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (* -1 (* b (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (* -1 (* b (+ (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (pow (sin (* 1/180 (* angle (PI)))) 6)) (* (pow b 6) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2)))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* 1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (* -1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* -1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (* -1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (* 1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (* -1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (+ (* -1/8 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (* 1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (+ (* 1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (+ (* -1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (+ (* -1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/8 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* 1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* b (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* b (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (pow (sin (* 1/180 (* angle (PI)))) 6)) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1/4 (* b (* x-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (+ (* 1/4 (* x-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (+ (* -1/8 (/ (* (pow a 4) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/4 (* x-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (+ (* -1/8 (/ (* (pow a 4) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/8 (/ (* (pow a 6) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* 1/4 (* x-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* b (* x-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* b (+ (* x-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* x-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* x-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* b (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* b (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (pow (cos (* 1/180 (* angle (PI)))) 6)) (* (pow b 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow b 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow b 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow b 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 3) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow b 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow b 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow b 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))))))) (* b (sqrt 2)))) (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* b (sqrt 2)))) (* 1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* b (sqrt 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* 1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* 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/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (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 b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))))) (* 1/2 (/ (* (pow x-scale 2) (* (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* b (sqrt 2)))) (* 1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (* 1/4 (* b (* y-scale (* (sin (* 1/2 (PI))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (+ (* 1/360 (/ (* angle (* b (* y-scale (* (PI) (* (cos (* 1/2 (PI))) (sqrt 8)))))) (sqrt 2))) (* 1/4 (* b (* y-scale (* (sin (* 1/2 (PI))) (* (sqrt 2) (sqrt 8)))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (sin (* 1/2 (PI))) (* (sqrt 2) (sqrt 8)))))) (* angle (+ (* 1/360 (/ (* b (* y-scale (* (PI) (* (cos (* 1/2 (PI))) (sqrt 8))))) (sqrt 2))) (* 1/8 (/ (* angle (* y-scale (* (sqrt 8) (- (+ (* 1/16200 (* (pow a 2) (pow (PI) 2))) (* 2 (* (pow b 2) (+ (* -1/32400 (* (pow (PI) 2) (pow (sin (* 1/2 (PI))) 2))) (* 1/32400 (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2))))))) (* 1/8100 (/ (* (pow b 2) (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2))) (pow (sqrt 2) 2))))))) (* b (* (sin (* 1/2 (PI))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (sin (* 1/2 (PI))) (* (sqrt 2) (sqrt 8)))))) (* angle (+ (* 1/360 (/ (* b (* y-scale (* (PI) (* (cos (* 1/2 (PI))) (sqrt 8))))) (sqrt 2))) (* angle (+ (* 1/8 (/ (* angle (* y-scale (* (sqrt 8) (- (* 2 (* (pow b 2) (+ (* -1/5832000 (* (pow (PI) 3) (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI)))))) (* -1/17496000 (* (pow (PI) 3) (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))))))) (* 1/90 (/ (* (PI) (* (cos (* 1/2 (PI))) (- (+ (* 1/16200 (* (pow a 2) (pow (PI) 2))) (* 2 (* (pow b 2) (+ (* -1/32400 (* (pow (PI) 2) (pow (sin (* 1/2 (PI))) 2))) (* 1/32400 (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2))))))) (* 1/8100 (/ (* (pow b 2) (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2))) (pow (sqrt 2) 2)))))) (* (sin (* 1/2 (PI))) (pow (sqrt 2) 2)))))))) (* b (* (sin (* 1/2 (PI))) (sqrt 2))))) (* 1/8 (/ (* y-scale (* (sqrt 8) (- (+ (* 1/16200 (* (pow a 2) (pow (PI) 2))) (* 2 (* (pow b 2) (+ (* -1/32400 (* (pow (PI) 2) (pow (sin (* 1/2 (PI))) 2))) (* 1/32400 (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2))))))) (* 1/8100 (/ (* (pow b 2) (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2))) (pow (sqrt 2) 2)))))) (* b (* (sin (* 1/2 (PI))) (sqrt 2))))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (* b (* y-scale (* (sin (* 1/2 (PI))) (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (+ (* 1/90 (/ (* angle (* b (* y-scale (* (PI) (* (cos (* 1/2 (PI))) (sqrt 8)))))) (sqrt 2))) (* b (* y-scale (* (sin (* 1/2 (PI))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (+ (* angle (+ (* 1/90 (/ (* b (* y-scale (* (PI) (* (cos (* 1/2 (PI))) (sqrt 8))))) (sqrt 2))) (* 1/2 (/ (* angle (* y-scale (* (sqrt 8) (- (+ (* 1/16200 (* (pow a 2) (pow (PI) 2))) (* 2 (* (pow b 2) (+ (* -1/32400 (* (pow (PI) 2) (pow (sin (* 1/2 (PI))) 2))) (* 1/32400 (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2))))))) (* 1/8100 (/ (* (pow b 2) (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2))) (pow (sqrt 2) 2))))))) (* b (* (sin (* 1/2 (PI))) (sqrt 2))))))) (* b (* y-scale (* (sin (* 1/2 (PI))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (+ (* angle (+ (* 1/90 (/ (* b (* y-scale (* (PI) (* (cos (* 1/2 (PI))) (sqrt 8))))) (sqrt 2))) (* angle (+ (* 1/2 (/ (* angle (* y-scale (* (sqrt 8) (- (* 2 (* (pow b 2) (+ (* -1/5832000 (* (pow (PI) 3) (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI)))))) (* -1/17496000 (* (pow (PI) 3) (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))))))) (* 1/90 (/ (* (PI) (* (cos (* 1/2 (PI))) (- (+ (* 1/16200 (* (pow a 2) (pow (PI) 2))) (* 2 (* (pow b 2) (+ (* -1/32400 (* (pow (PI) 2) (pow (sin (* 1/2 (PI))) 2))) (* 1/32400 (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2))))))) (* 1/8100 (/ (* (pow b 2) (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2))) (pow (sqrt 2) 2)))))) (* (sin (* 1/2 (PI))) (pow (sqrt 2) 2)))))))) (* b (* (sin (* 1/2 (PI))) (sqrt 2))))) (* 1/2 (/ (* y-scale (* (sqrt 8) (- (+ (* 1/16200 (* (pow a 2) (pow (PI) 2))) (* 2 (* (pow b 2) (+ (* -1/32400 (* (pow (PI) 2) (pow (sin (* 1/2 (PI))) 2))) (* 1/32400 (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2))))))) (* 1/8100 (/ (* (pow b 2) (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2))) (pow (sqrt 2) 2)))))) (* b (* (sin (* 1/2 (PI))) (sqrt 2))))))))) (* b (* y-scale (* (sin (* 1/2 (PI))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (* b (* (sin (* 1/2 (PI))) (sqrt 2)))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (+ (* 1/90 (/ (* angle (* b (* (PI) (cos (* 1/2 (PI)))))) (sqrt 2))) (* b (* (sin (* 1/2 (PI))) (sqrt 2))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (+ (* angle (+ (* 1/90 (/ (* b (* (PI) (cos (* 1/2 (PI))))) (sqrt 2))) (* 1/2 (/ (* angle (- (+ (* 1/16200 (* (pow a 2) (pow (PI) 2))) (* 2 (* (pow b 2) (+ (* -1/32400 (* (pow (PI) 2) (pow (sin (* 1/2 (PI))) 2))) (* 1/32400 (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2))))))) (* 1/8100 (/ (* (pow b 2) (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2))) (pow (sqrt 2) 2))))) (* b (* (sin (* 1/2 (PI))) (sqrt 2))))))) (* b (* (sin (* 1/2 (PI))) (sqrt 2))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (+ (* angle (+ (* 1/90 (/ (* b (* (PI) (cos (* 1/2 (PI))))) (sqrt 2))) (* angle (+ (* 1/2 (/ (* angle (- (* 2 (* (pow b 2) (+ (* -1/5832000 (* (pow (PI) 3) (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI)))))) (* -1/17496000 (* (pow (PI) 3) (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))))))) (* 1/90 (/ (* (PI) (* (cos (* 1/2 (PI))) (- (+ (* 1/16200 (* (pow a 2) (pow (PI) 2))) (* 2 (* (pow b 2) (+ (* -1/32400 (* (pow (PI) 2) (pow (sin (* 1/2 (PI))) 2))) (* 1/32400 (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2))))))) (* 1/8100 (/ (* (pow b 2) (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2))) (pow (sqrt 2) 2)))))) (* (sin (* 1/2 (PI))) (pow (sqrt 2) 2)))))) (* b (* (sin (* 1/2 (PI))) (sqrt 2))))) (* 1/2 (/ (- (+ (* 1/16200 (* (pow a 2) (pow (PI) 2))) (* 2 (* (pow b 2) (+ (* -1/32400 (* (pow (PI) 2) (pow (sin (* 1/2 (PI))) 2))) (* 1/32400 (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2))))))) (* 1/8100 (/ (* (pow b 2) (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2))) (pow (sqrt 2) 2)))) (* b (* (sin (* 1/2 (PI))) (sqrt 2))))))))) (* b (* (sin (* 1/2 (PI))) (sqrt 2))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))) #s(hole binary64 (* 2 (* (pow b 2) (pow (sin (* 1/2 (PI))) 2)))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))) #s(hole binary64 (+ (* 1/45 (* angle (* (pow b 2) (* (PI) (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI)))))))) (* 2 (* (pow b 2) (pow (sin (* 1/2 (PI))) 2))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))) #s(hole binary64 (+ (* 2 (* (pow b 2) (pow (sin (* 1/2 (PI))) 2))) (* angle (+ (* 1/45 (* (pow b 2) (* (PI) (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))))) (* angle (+ (* 1/16200 (* (pow a 2) (pow (PI) 2))) (* 2 (* (pow b 2) (+ (* -1/32400 (* (pow (PI) 2) (pow (sin (* 1/2 (PI))) 2))) (* 1/32400 (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2)))))))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))) #s(hole binary64 (+ (* 2 (* (pow b 2) (pow (sin (* 1/2 (PI))) 2))) (* angle (+ (* 1/45 (* (pow b 2) (* (PI) (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))))) (* angle (+ (* 1/16200 (* (pow a 2) (pow (PI) 2))) (+ (* 2 (* angle (* (pow b 2) (+ (* -1/5832000 (* (pow (PI) 3) (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI)))))) (* -1/17496000 (* (pow (PI) 3) (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI)))))))))) (* 2 (* (pow b 2) (+ (* -1/32400 (* (pow (PI) 2) (pow (sin (* 1/2 (PI))) 2))) (* 1/32400 (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 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 (* angle (PI)) #s(hole binary64 (* angle (PI))))
#s(approx angle #s(hole binary64 angle))
#s(approx (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)) #s(hole binary64 (* 2 (* (pow b 2) (pow (sin (* 1/2 (PI))) 2)))))
#s(approx (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)) #s(hole binary64 (+ (* 1/45 (* angle (* (pow b 2) (* (PI) (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI)))))))) (* 2 (* (pow b 2) (pow (sin (* 1/2 (PI))) 2))))))
#s(approx (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)) #s(hole binary64 (+ (* 2 (* (pow b 2) (pow (sin (* 1/2 (PI))) 2))) (* angle (+ (* 1/45 (* (pow b 2) (* (PI) (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))))) (* 2 (* angle (* (pow b 2) (+ (* -1/32400 (* (pow (PI) 2) (pow (sin (* 1/2 (PI))) 2))) (* 1/32400 (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2))))))))))))
#s(approx (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)) #s(hole binary64 (+ (* 2 (* (pow b 2) (pow (sin (* 1/2 (PI))) 2))) (* angle (+ (* 1/45 (* (pow b 2) (* (PI) (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))))) (* angle (+ (* 2 (* angle (* (pow b 2) (+ (* -1/5832000 (* (pow (PI) 3) (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI)))))) (* -1/17496000 (* (pow (PI) 3) (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI)))))))))) (* 2 (* (pow b 2) (+ (* -1/32400 (* (pow (PI) 2) (pow (sin (* 1/2 (PI))) 2))) (* 1/32400 (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2)))))))))))))
#s(approx (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2) #s(hole binary64 (* (pow b 2) (pow (sin (* 1/2 (PI))) 2))))
#s(approx (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2) #s(hole binary64 (+ (* 1/90 (* angle (* (pow b 2) (* (PI) (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI)))))))) (* (pow b 2) (pow (sin (* 1/2 (PI))) 2)))))
#s(approx (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2) #s(hole binary64 (+ (* angle (+ (* 1/90 (* (pow b 2) (* (PI) (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))))) (* angle (* (pow b 2) (+ (* -1/32400 (* (pow (PI) 2) (pow (sin (* 1/2 (PI))) 2))) (* 1/32400 (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2)))))))) (* (pow b 2) (pow (sin (* 1/2 (PI))) 2)))))
#s(approx (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2) #s(hole binary64 (+ (* angle (+ (* 1/90 (* (pow b 2) (* (PI) (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))))) (* angle (+ (* angle (* (pow b 2) (+ (* -1/5832000 (* (pow (PI) 3) (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI)))))) (* -1/17496000 (* (pow (PI) 3) (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))))))) (* (pow b 2) (+ (* -1/32400 (* (pow (PI) 2) (pow (sin (* 1/2 (PI))) 2))) (* 1/32400 (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2))))))))) (* (pow b 2) (pow (sin (* 1/2 (PI))) 2)))))
#s(approx (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) #s(hole binary64 (* b (sin (* 1/2 (PI))))))
#s(approx (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) #s(hole binary64 (+ (* 1/180 (* angle (* b (* (PI) (cos (* 1/2 (PI))))))) (* b (sin (* 1/2 (PI)))))))
#s(approx (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) #s(hole binary64 (+ (* angle (+ (* -1/64800 (* angle (* b (* (pow (PI) 2) (sin (* 1/2 (PI))))))) (* 1/180 (* b (* (PI) (cos (* 1/2 (PI)))))))) (* b (sin (* 1/2 (PI)))))))
#s(approx (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) #s(hole binary64 (+ (* angle (+ (* 1/180 (* b (* (PI) (cos (* 1/2 (PI)))))) (* angle (+ (* -1/64800 (* b (* (pow (PI) 2) (sin (* 1/2 (PI)))))) (* -1/34992000 (* angle (* b (* (pow (PI) 3) (cos (* 1/2 (PI))))))))))) (* b (sin (* 1/2 (PI)))))))
#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 (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* -1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))))) (* b (sqrt 2)))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* -1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* -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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* b (sqrt 2)))) (* -1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))))) (* b (sqrt 2)))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* -1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* -1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* 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)))) (* 1/2 (/ (* (pow x-scale 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)))) (- (+ (* -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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* b (sqrt 2)))) (* -1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* -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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (* y-scale (* (sqrt 2) (sqrt 8))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* 1/2 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))))) (* b (sqrt 2)))) (* b (* y-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* b (* y-scale (* (sqrt 2) (sqrt 8)))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* -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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* b (sqrt 2)))) (* 1/2 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))))) (* b (sqrt 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* b (* y-scale (* (sqrt 2) (sqrt 8)))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* 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)))) (* 1/2 (/ (* (pow x-scale 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)))) (- (+ (* -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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* b (sqrt 2)))) (* 1/2 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* -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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/8 (/ (* (pow angle 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2))))))) (* b (sqrt 2)))) (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* y-scale (* (sqrt 8) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))))) (* b (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* y-scale (* (sqrt 8) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* y-scale (* (sqrt 8) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* 1/8 (/ (* y-scale (* (sqrt 8) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2))))))) (* b (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* y-scale (* (sqrt 8) (- (+ (* 2 (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* 2 (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))))) (* 1/2 (/ (* (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2)))))) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* b (* y-scale (* (sqrt 2) (sqrt 8))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* 1/2 (/ (* (pow angle 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2))))))) (* b (sqrt 2)))) (* b (* y-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* b (* y-scale (* (sqrt 2) (sqrt 8)))) (* (pow angle 2) (+ (* 1/2 (/ (* y-scale (* (sqrt 8) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))))) (* b (sqrt 2)))) (* 1/2 (/ (* (pow angle 2) (* y-scale (* (sqrt 8) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* b (* y-scale (* (sqrt 2) (sqrt 8)))) (* (pow angle 2) (+ (* 1/2 (/ (* y-scale (* (sqrt 8) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* 1/2 (/ (* y-scale (* (sqrt 8) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2))))))) (* b (sqrt 2)))) (* 1/2 (/ (* (pow angle 2) (* y-scale (* (sqrt 8) (- (+ (* 2 (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* 2 (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))))) (* 1/2 (/ (* (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2)))))) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* b (sqrt 2))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* 1/2 (/ (* (pow angle 2) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2))))) (* b (sqrt 2)))) (* b (sqrt 2)))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* b (sqrt 2)) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2)))))) (* b (sqrt 2)))) (* 1/2 (/ (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) (* b (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* b (sqrt 2)) (* (pow angle 2) (+ (* 1/2 (/ (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (- (+ (* 2 (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* 2 (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))))) (* 1/2 (/ (* (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2)))))) (* (pow b 2) (pow (sqrt 2) 2)))))) (* b (sqrt 2)))) (* 1/2 (/ (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2))))) (* b (sqrt 2)))))))))))
#s(approx (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) #s(hole binary64 (* 1/180 (* a (* angle (* (PI) (sqrt 2)))))))
#s(approx (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) #s(hole binary64 (* angle (+ (* -1/34992000 (* a (* (pow angle 2) (* (pow (PI) 3) (sqrt 2))))) (* 1/180 (* a (* (PI) (sqrt 2))))))))
#s(approx (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) #s(hole binary64 (* angle (+ (* 1/180 (* a (* (PI) (sqrt 2)))) (* (pow angle 2) (+ (* -1/34992000 (* a (* (pow (PI) 3) (sqrt 2)))) (* 1/22674816000000 (* a (* (pow angle 2) (* (pow (PI) 5) (sqrt 2)))))))))))
#s(approx (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) #s(hole binary64 (* angle (+ (* 1/180 (* a (* (PI) (sqrt 2)))) (* (pow angle 2) (+ (* -1/34992000 (* a (* (pow (PI) 3) (sqrt 2)))) (* (pow angle 2) (+ (* -1/30855889612800000000 (* a (* (pow angle 2) (* (pow (PI) 7) (sqrt 2))))) (* 1/22674816000000 (* a (* (pow (PI) 5) (sqrt 2))))))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) #s(hole binary64 (* 1/180 (* angle (* (PI) (sqrt 2))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) #s(hole binary64 (* angle (+ (* -1/34992000 (* (pow angle 2) (* (pow (PI) 3) (sqrt 2)))) (* 1/180 (* (PI) (sqrt 2)))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) #s(hole binary64 (* angle (+ (* 1/180 (* (PI) (sqrt 2))) (* (pow angle 2) (+ (* -1/34992000 (* (pow (PI) 3) (sqrt 2))) (* 1/22674816000000 (* (pow angle 2) (* (pow (PI) 5) (sqrt 2))))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) #s(hole binary64 (* angle (+ (* 1/180 (* (PI) (sqrt 2))) (* (pow angle 2) (+ (* -1/34992000 (* (pow (PI) 3) (sqrt 2))) (* (pow angle 2) (+ (* -1/30855889612800000000 (* (pow angle 2) (* (pow (PI) 7) (sqrt 2)))) (* 1/22674816000000 (* (pow (PI) 5) (sqrt 2)))))))))))
#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 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/8 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (* 1/16200 (* (pow b 2) (pow (PI) 2))))))) (* a (sqrt 2)))) (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (sqrt 8) (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (* 1/16200 (* (pow b 2) (pow (PI) 2)))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (- (+ (* -1/1574640000 (* (pow b 2) (pow (PI) 4))) (* 2 (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (* 1/16200 (* (pow b 2) (pow (PI) 2)))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))))) (* a (sqrt 2)))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (sqrt 8) (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (* 1/16200 (* (pow b 2) (pow (PI) 2)))))) (* a (sqrt 2)))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (sqrt 8) (- (+ (* -1/1574640000 (* (pow b 2) (pow (PI) 4))) (* 2 (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (* 1/16200 (* (pow b 2) (pow (PI) 2)))) 2) (* (pow a 2) (pow (sqrt 2) 2))))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (- (+ (* 2 (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))) (* 2 (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))))) (* 1/2 (/ (* (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (* 1/16200 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -1/1574640000 (* (pow b 2) (pow (PI) 4))) (* 2 (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (* 1/16200 (* (pow b 2) (pow (PI) 2)))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))) (* (pow a 2) (pow (sqrt 2) 2)))))))) (* a (sqrt 2)))))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* a (* x-scale (* (sqrt 2) (sqrt 8))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* 1/2 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (* 1/16200 (* (pow b 2) (pow (PI) 2))))))) (* a (sqrt 2)))) (* a (* x-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* a (* x-scale (* (sqrt 2) (sqrt 8)))) (* (pow angle 2) (+ (* 1/2 (/ (* x-scale (* (sqrt 8) (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (* 1/16200 (* (pow b 2) (pow (PI) 2)))))) (* a (sqrt 2)))) (* 1/2 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (- (+ (* -1/1574640000 (* (pow b 2) (pow (PI) 4))) (* 2 (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (* 1/16200 (* (pow b 2) (pow (PI) 2)))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))))) (* a (sqrt 2)))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* a (* x-scale (* (sqrt 2) (sqrt 8)))) (* (pow angle 2) (+ (* 1/2 (/ (* x-scale (* (sqrt 8) (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (* 1/16200 (* (pow b 2) (pow (PI) 2)))))) (* a (sqrt 2)))) (* (pow angle 2) (+ (* 1/2 (/ (* x-scale (* (sqrt 8) (- (+ (* -1/1574640000 (* (pow b 2) (pow (PI) 4))) (* 2 (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (* 1/16200 (* (pow b 2) (pow (PI) 2)))) 2) (* (pow a 2) (pow (sqrt 2) 2))))))) (* a (sqrt 2)))) (* 1/2 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (- (+ (* 2 (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))) (* 2 (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))))) (* 1/2 (/ (* (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (* 1/16200 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -1/1574640000 (* (pow b 2) (pow (PI) 4))) (* 2 (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (* 1/16200 (* (pow b 2) (pow (PI) 2)))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))) (* (pow a 2) (pow (sqrt 2) 2)))))))) (* a (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* a (sqrt 2))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* 1/2 (/ (* (pow angle 2) (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (* 1/16200 (* (pow b 2) (pow (PI) 2))))) (* a (sqrt 2)))) (* a (sqrt 2)))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* a (sqrt 2)) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (- (+ (* -1/1574640000 (* (pow b 2) (pow (PI) 4))) (* 2 (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (* 1/16200 (* (pow b 2) (pow (PI) 2)))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))) (* a (sqrt 2)))) (* 1/2 (/ (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (* 1/16200 (* (pow b 2) (pow (PI) 2)))) (* a (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* a (sqrt 2)) (* (pow angle 2) (+ (* 1/2 (/ (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (* 1/16200 (* (pow b 2) (pow (PI) 2)))) (* a (sqrt 2)))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (- (+ (* 2 (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))) (* 2 (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))))) (* 1/2 (/ (* (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (* 1/16200 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -1/1574640000 (* (pow b 2) (pow (PI) 4))) (* 2 (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (* 1/16200 (* (pow b 2) (pow (PI) 2)))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))) (* (pow a 2) (pow (sqrt 2) 2)))))) (* a (sqrt 2)))) (* 1/2 (/ (- (+ (* -1/1574640000 (* (pow b 2) (pow (PI) 4))) (* 2 (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (* 1/16200 (* (pow b 2) (pow (PI) 2)))) 2) (* (pow a 2) (pow (sqrt 2) 2))))) (* a (sqrt 2)))))))))))
#s(approx (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (* 2 (pow a 2))))
#s(approx (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (+ (* 2 (pow a 2)) (* (pow angle 2) (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (* 1/16200 (* (pow b 2) (pow (PI) 2))))))))
#s(approx (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (+ (* 2 (pow a 2)) (* (pow angle 2) (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (+ (* 1/16200 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/1574640000 (* (pow b 2) (pow (PI) 4))) (* 2 (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))))))))
#s(approx (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (+ (* 2 (pow a 2)) (* (pow angle 2) (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (+ (* 1/16200 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/1574640000 (* (pow b 2) (pow (PI) 4))) (+ (* 2 (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (* (pow angle 2) (+ (* 2 (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))) (* 2 (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))))))))))))))
#s(approx (pow (* a (cos (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (pow a 2)))
#s(approx (pow (* a (cos (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (+ (* -1/32400 (* (pow a 2) (* (pow angle 2) (pow (PI) 2)))) (pow a 2))))
#s(approx (pow (* a (cos (* 1/180 (* angle (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 (* 1/180 (* angle (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 (* 1/180 (* angle (PI))))) #s(hole binary64 a))
#s(approx (* a (cos (* 1/180 (* angle (PI))))) #s(hole binary64 (+ a (* -1/64800 (* a (* (pow angle 2) (pow (PI) 2)))))))
#s(approx (* a (cos (* 1/180 (* angle (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 (* 1/180 (* angle (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 (* 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 (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (* 1/16200 (* (pow angle 2) (* (pow b 2) (pow (PI) 2))))))
#s(approx (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (* (pow angle 2) (+ (* -1/1574640000 (* (pow angle 2) (* (pow b 2) (pow (PI) 4)))) (* 1/16200 (* (pow b 2) (pow (PI) 2)))))))
#s(approx (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/16200 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/1574640000 (* (pow b 2) (pow (PI) 4))) (* 2 (* (pow angle 2) (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))))))))))
#s(approx (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/16200 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/1574640000 (* (pow b 2) (pow (PI) 4))) (* (pow angle 2) (+ (* 2 (* (pow angle 2) (* (pow b 2) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8)))))) (* 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 (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 angle 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))))))) (* y-scale (sqrt 2)))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* (pow angle 2) (* b (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* y-scale (sqrt 2)))) (* 1/2 (/ (* (pow a 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* y-scale (sqrt 2)))))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (* (pow angle 2) (- (* -1/2 (/ (* (pow a 2) (* (pow angle 2) (* b (* (sqrt 8) (- (+ (* 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/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (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 b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))))) (* 1/2 (/ (* (pow x-scale 2) (* (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* y-scale (sqrt 2)))) (* 1/2 (/ (* (pow a 2) (* b (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* y-scale (sqrt 2)))))) (* 1/2 (/ (* (pow a 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* y-scale (sqrt 2)))))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 angle 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))))))) (* y-scale (sqrt 2)))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* y-scale (sqrt 2)))) (* 1/2 (/ (* (pow a 2) (* (pow angle 2) (* b (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* y-scale (sqrt 2)))))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* y-scale (sqrt 2)))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow a 2) (* b (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* y-scale (sqrt 2)))) (* 1/2 (/ (* (pow a 2) (* (pow angle 2) (* b (* (sqrt 8) (- (+ (* 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/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (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 b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))))) (* 1/2 (/ (* (pow x-scale 2) (* (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* y-scale (sqrt 2)))))))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))) #s(hole binary64 (* 16 (/ (* (pow a 4) (pow b 6)) (* (pow x-scale 4) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow angle 2) (* (pow b 4) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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 x-scale 2) (pow y-scale 2)))) (* 16 (/ (* (pow a 4) (pow b 6)) (* (pow x-scale 4) (pow y-scale 2)))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))) #s(hole binary64 (+ (* 16 (/ (* (pow a 4) (pow b 6)) (* (pow x-scale 4) (pow y-scale 2)))) (* (pow angle 2) (+ (* 8 (/ (* (pow a 4) (* (pow angle 2) (* (pow b 4) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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 x-scale 2) (pow y-scale 2)))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))) #s(hole binary64 (+ (* 16 (/ (* (pow a 4) (pow b 6)) (* (pow x-scale 4) (pow y-scale 2)))) (* (pow angle 2) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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 x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* 8 (/ (* (pow a 4) (* (pow angle 2) (* (pow b 4) (+ (* 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/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (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 b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))))))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))) (* (pow x-scale 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 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) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (pow x-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 x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (pow x-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 x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 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 angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (pow x-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 x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 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 angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 angle 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/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (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 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 b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))))))))))))
#s(approx (/ (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (* y-scale y-scale)) #s(hole binary64 (* 2 (/ (pow a 2) (pow y-scale 2)))))
#s(approx (/ (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (* y-scale y-scale)) #s(hole binary64 (+ (* 2 (/ (pow a 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))))))
#s(approx (/ (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (* y-scale y-scale)) #s(hole binary64 (+ (* 2 (/ (pow a 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* 1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/1574640000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (* 2 (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))))))))))
#s(approx (/ (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (* y-scale y-scale)) #s(hole binary64 (+ (* 2 (/ (pow a 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* 1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/1574640000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (+ (* 2 (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (* (pow angle 2) (+ (* 2 (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2)))))))
#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 (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 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 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 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 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) #s(hole binary64 (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (sin (* 1/180 (* angle (PI))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (cos (* 1/180 (* angle (PI))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (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 (cos (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (pow x-scale 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (+ (/ (* (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)) (+ (/ (* (pow b 2) (pow (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 (/ (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (* y-scale y-scale)) #s(hole binary64 (/ (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow y-scale 2))))
#s(approx (+ (* 1/180 (* angle (PI))) (/ (PI) 2)) #s(hole binary64 (* -1 (* angle (+ (* -1/2 (/ (PI) angle)) (* -1/180 (PI)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/8 (* (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* 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 a 2) (pow (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 (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 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) (+ (* 1/8 (* (* y-scale (* (sqrt 8) (+ (* 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 a 2) (pow (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 (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 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) (+ (* 1/8 (* (* y-scale (* (sqrt 8) (+ (* 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 a 2) (pow (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 (/ 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) (+ (* 1/8 (* (* y-scale (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (* -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 (cos (* 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 (/ (* (+ (* 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 a 2) (pow (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 (cos (* 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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 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)))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* x-scale (sqrt 8)) #s(hole binary64 (* x-scale (sqrt 8))))
#s(approx x-scale #s(hole binary64 x-scale))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* (pow x-scale 2) y-scale)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (pow x-scale 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (- (* -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 (cos (* 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 (/ (* (+ (* 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 a 2) (pow (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 (cos (* 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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 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))))))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* (pow x-scale 2) y-scale)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (pow x-scale 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) y-scale) (sqrt (+ (* 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) y-scale) (sqrt (/ 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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) y-scale) (sqrt (+ (* 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) y-scale) (sqrt (/ 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (- (* -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 (cos (* 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 (/ (* (+ (* 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 a 2) (pow (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 (cos (* 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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 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))))))))))) y-scale) (sqrt (/ 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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 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 4) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (* (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 a 2) (pow (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 y-scale 2))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)))) (pow x-scale 4))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2))) (* (pow x-scale 2) (+ (* 4 (/ (* (pow a 4) (* (pow b 4) (* (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 y-scale 2) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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 a 2) (pow (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 y-scale 2)))))) (pow x-scale 4))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2))) (* (pow x-scale 2) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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 a 2) (pow (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 y-scale 2))) (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow b 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 y-scale 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 3)))) (* 4 (/ (* (pow a 4) (* (pow b 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) (* 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 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 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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (* 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (+ (* 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 a 2) (pow (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))))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (+ (* 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 a 2) (pow (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))))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (+ (* 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 a 2) (pow (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))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 4)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 6)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 4)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) x-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) x-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 6) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) x-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) x-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) x-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 6) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) x-scale)))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 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) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (pow y-scale 2)))) (pow x-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 4) (- (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 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))))))) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (pow y-scale 2))))) (pow x-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 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 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))) 3))))) (+ (* 4 (/ (* (pow a 4) (* (pow b 4) (- (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 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))))))) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (pow y-scale 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 y-scale 2))) (* 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 4)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 6)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 4)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) x-scale))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) x-scale))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 6) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) x-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) x-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) x-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 6) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) x-scale))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/8 (* (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* 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))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow y-scale 2) (+ (* 1/8 (* (* x-scale (* (sqrt 8) (+ (* 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)))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow y-scale 2) (+ (* 1/8 (* (* x-scale (* (sqrt 8) (+ (* 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)))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* 1/8 (* (* x-scale (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (* -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 (/ (* (+ (* 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)))) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (* y-scale (sqrt 8)) #s(hole binary64 (* y-scale (sqrt 8))))
#s(approx y-scale #s(hole binary64 y-scale))
#s(approx (* y-scale 4) #s(hole binary64 (* 4 y-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale (pow y-scale 2))) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (pow y-scale 2) (* (sqrt 8) (+ (* 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)))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow y-scale 2))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow y-scale 2))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (- (* -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 (/ (* (+ (* 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)))) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow y-scale 2))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale (pow y-scale 2))) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (pow y-scale 2) (* (sqrt 8) (+ (* 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)))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow y-scale 2))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow y-scale 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 2))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow y-scale 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (- (* -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 (/ (* (+ (* 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)))) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))) (pow y-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (pow y-scale 4))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (* (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 a 2) (pow (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 x-scale 2))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow x-scale 2)))) (pow y-scale 4))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow x-scale 2))) (* (pow y-scale 2) (+ (* 4 (/ (* (pow a 4) (* (pow b 4) (* (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 x-scale 2) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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)))))) (pow x-scale 2)))))) (pow y-scale 4))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow x-scale 2))) (* (pow y-scale 2) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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)))))) (pow x-scale 2))) (* (pow y-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow b 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 x-scale 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 3)))) (* 4 (/ (* (pow a 4) (* (pow b 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) (* 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 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 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (* 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (+ (* 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 a 2) (pow (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))))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (+ (* 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 a 2) (pow (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))))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (+ (* 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 a 2) (pow (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))))
#s(approx (* y-scale y-scale) #s(hole binary64 (pow y-scale 2)))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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))))))))) (pow y-scale 4)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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))))))))) (pow y-scale 6)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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))))))))) (pow y-scale 4)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))) y-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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)))))))) y-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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)))))))))) (* x-scale (pow y-scale 6))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))))) y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))) y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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)))))))) y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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)))))))))) (* x-scale (pow y-scale 6))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))))) y-scale)))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 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)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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)))))) (pow x-scale 2)))) (pow y-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 4) (- (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 x-scale 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))))))) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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)))))) (pow x-scale 2))))) (pow y-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 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 x-scale 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))))) (+ (* 4 (/ (* (pow a 4) (* (pow b 4) (- (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 x-scale 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))))))) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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)))))) (pow x-scale 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 x-scale 2))) (* 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (* 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))) (+ (/ (* (pow a 2) (pow (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (* 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))) (+ (/ (* (pow a 2) (pow (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (* 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))) (+ (/ (* (pow a 2) (pow (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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))))))))) (pow y-scale 4)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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))))))))) (pow y-scale 6)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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))))))))) (pow y-scale 4)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))) y-scale))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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)))))))) y-scale))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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)))))))))) (* x-scale (pow y-scale 6))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))))) y-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))) y-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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)))))))) y-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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)))))))))) (* x-scale (pow y-scale 6))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))))) y-scale))))
Calls

15 calls:

TimeVariablePointExpression
64.0ms
b
@inf
((/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) (* y-scale (sqrt 8)) y-scale (sqrt 8) 8 (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))) 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* a (sin (* 1/180 (* angle (PI))))) (* 1/180 (* a (* angle (PI)))) 1/180 (* a (* angle (PI))) a (* angle (PI)) angle (PI) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)) (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2) (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (+ (* 1/180 (* angle (PI))) (/ (PI) 2)) (/ (PI) 2) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))))) -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))))) (* b (* y-scale 4)) (* y-scale 4) 4 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (sin (* 1/180 (* angle (PI)))) (* 1/180 (* angle (PI))) (sqrt 2) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (* x-scale (sqrt 8)) x-scale (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (* a (cos (* 1/180 (* angle (PI))))) (cos (* 1/180 (* angle (PI)))) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* b (sin (* 1/180 (* angle (PI))))) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))))) (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))) (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2)) (* 4 (* (* b a) (* b (neg a)))) (* (* b a) (* b (neg a))) (* b a) (* b (neg a)) (neg a) (pow (* x-scale y-scale) 2) (* x-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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (* y-scale y-scale)) (* y-scale y-scale))
56.0ms
x-scale
@-inf
((/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) (* y-scale (sqrt 8)) y-scale (sqrt 8) 8 (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))) 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* a (sin (* 1/180 (* angle (PI))))) (* 1/180 (* a (* angle (PI)))) 1/180 (* a (* angle (PI))) a (* angle (PI)) angle (PI) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)) (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2) (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (+ (* 1/180 (* angle (PI))) (/ (PI) 2)) (/ (PI) 2) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))))) -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))))) (* b (* y-scale 4)) (* y-scale 4) 4 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (sin (* 1/180 (* angle (PI)))) (* 1/180 (* angle (PI))) (sqrt 2) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (* x-scale (sqrt 8)) x-scale (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (* a (cos (* 1/180 (* angle (PI))))) (cos (* 1/180 (* angle (PI)))) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* b (sin (* 1/180 (* angle (PI))))) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))))) (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))) (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2)) (* 4 (* (* b a) (* b (neg a)))) (* (* b a) (* b (neg a))) (* b a) (* b (neg a)) (neg a) (pow (* x-scale y-scale) 2) (* x-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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (* y-scale y-scale)) (* y-scale y-scale))
52.0ms
a
@0
((/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) (* y-scale (sqrt 8)) y-scale (sqrt 8) 8 (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))) 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* a (sin (* 1/180 (* angle (PI))))) (* 1/180 (* a (* angle (PI)))) 1/180 (* a (* angle (PI))) a (* angle (PI)) angle (PI) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)) (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2) (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (+ (* 1/180 (* angle (PI))) (/ (PI) 2)) (/ (PI) 2) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))))) -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))))) (* b (* y-scale 4)) (* y-scale 4) 4 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (sin (* 1/180 (* angle (PI)))) (* 1/180 (* angle (PI))) (sqrt 2) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (* x-scale (sqrt 8)) x-scale (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (* a (cos (* 1/180 (* angle (PI))))) (cos (* 1/180 (* angle (PI)))) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* b (sin (* 1/180 (* angle (PI))))) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))))) (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))) (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2)) (* 4 (* (* b a) (* b (neg a)))) (* (* b a) (* b (neg a))) (* b a) (* b (neg a)) (neg a) (pow (* x-scale y-scale) 2) (* x-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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (* y-scale y-scale)) (* y-scale y-scale))
51.0ms
b
@0
((/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) (* y-scale (sqrt 8)) y-scale (sqrt 8) 8 (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))) 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* a (sin (* 1/180 (* angle (PI))))) (* 1/180 (* a (* angle (PI)))) 1/180 (* a (* angle (PI))) a (* angle (PI)) angle (PI) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)) (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2) (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (+ (* 1/180 (* angle (PI))) (/ (PI) 2)) (/ (PI) 2) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))))) -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))))) (* b (* y-scale 4)) (* y-scale 4) 4 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (sin (* 1/180 (* angle (PI)))) (* 1/180 (* angle (PI))) (sqrt 2) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (* x-scale (sqrt 8)) x-scale (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (* a (cos (* 1/180 (* angle (PI))))) (cos (* 1/180 (* angle (PI)))) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* b (sin (* 1/180 (* angle (PI))))) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))))) (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))) (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2)) (* 4 (* (* b a) (* b (neg a)))) (* (* b a) (* b (neg a))) (* b a) (* b (neg a)) (neg a) (pow (* x-scale y-scale) 2) (* x-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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (* y-scale y-scale)) (* y-scale y-scale))
49.0ms
b
@-inf
((/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) (* y-scale (sqrt 8)) y-scale (sqrt 8) 8 (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))) 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* a (sin (* 1/180 (* angle (PI))))) (* 1/180 (* a (* angle (PI)))) 1/180 (* a (* angle (PI))) a (* angle (PI)) angle (PI) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)) (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2) (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (+ (* 1/180 (* angle (PI))) (/ (PI) 2)) (/ (PI) 2) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))))) -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))))) (* b (* y-scale 4)) (* y-scale 4) 4 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (sin (* 1/180 (* angle (PI)))) (* 1/180 (* angle (PI))) (sqrt 2) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (* x-scale (sqrt 8)) x-scale (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (* a (cos (* 1/180 (* angle (PI))))) (cos (* 1/180 (* angle (PI)))) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* b (sin (* 1/180 (* angle (PI))))) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))))) (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))) (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2)) (* 4 (* (* b a) (* b (neg a)))) (* (* b a) (* b (neg a))) (* b a) (* b (neg a)) (neg a) (pow (* x-scale y-scale) 2) (* x-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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (* y-scale y-scale)) (* y-scale y-scale))

rewrite854.0ms (3.8%)

Memory
26.1MiB live, 1 073.0MiB allocated; 86ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
04101243594
04201224011
012159218947
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
739 → 782
Calls
Call 1
Inputs
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))
(*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))
#s(literal 1/4 binary64)
(*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64))))))
(*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))
y-scale
(sqrt.f64 #s(literal 8 binary64))
#s(literal 8 binary64)
(sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)))))
(fma.f64 #s(literal 2 binary64) (pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64))))
#s(literal 2 binary64)
(pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))) #s(literal 2 binary64))
#s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64)))))
(*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))
#s(literal 1/180 binary64)
(*.f64 a (*.f64 angle (PI.f64)))
a
(*.f64 angle (PI.f64))
angle
(PI.f64)
(*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)))
(pow.f64 (*.f64 b (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64))
(*.f64 b (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
b
(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)))
(/.f64 (PI.f64) #s(literal 2 binary64))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale #s(literal 4 binary64))))))
(*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale #s(literal 4 binary64)))))
#s(literal -1/4 binary64)
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale #s(literal 4 binary64))))
(*.f64 b (*.f64 y-scale #s(literal 4 binary64)))
(*.f64 y-scale #s(literal 4 binary64))
#s(literal 4 binary64)
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
(*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))
(*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #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)))
(sqrt.f64 #s(literal 2 binary64))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))
(*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))
(*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))
(*.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))
x-scale
(sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.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 (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))
(pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))
(*.f64 a (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(literal 2 binary64) (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 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) #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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 y-scale y-scale)))))) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
(neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) #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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 y-scale y-scale))))))
(sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) #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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 y-scale y-scale)))))
(*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) #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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 y-scale y-scale))))
(*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))
(*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
(/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))
(*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))
(*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))
(*.f64 b a)
(*.f64 b (neg.f64 a))
(neg.f64 a)
(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))
(*.f64 x-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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (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 (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 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 y-scale y-scale))
(*.f64 y-scale y-scale)
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (* (pow a 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (* (pow a 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (pow a 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (* 1/4 (* b (* y-scale (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (* (sqrt 2) (sqrt 8)))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* b (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow a 2) (+ (* -1/8 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/4 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow a 2) (+ (* 1/4 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2))))) (* (pow a 2) (+ (* -1/8 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/8 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 5) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 5) (pow (sqrt 2) 5))))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (* b (* y-scale (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (+ (* b (* y-scale (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (* (sqrt 2) (sqrt 8))))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* b (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (+ (* b (* y-scale (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (+ (* b (* y-scale (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow a 2) (+ (* (pow a 2) (+ (* -1/2 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 5) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (* b (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2)))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (+ (* b (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* b (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2)))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (+ (* b (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2))) (* (pow a 2) (+ (* -1/2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 3) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 3) (pow (sqrt 2) 3))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* b (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (+ (* b (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2))) (* (pow a 2) (+ (* (pow a 2) (+ (* -1/2 (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (* (pow b 3) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 6)) (* (pow b 5) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* b (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2)))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))) #s(hole binary64 (* 2 (* (pow b 2) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2)))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))) #s(hole binary64 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 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 (* 1/180 (* a (* angle (PI)))) #s(hole binary64 (* 1/180 (* a (* angle (PI))))))
#s(approx (* a (* angle (PI))) #s(hole binary64 (* a (* angle (PI)))))
#s(approx a #s(hole binary64 a))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* -1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow a 2) (+ (* -1/4 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (* 1/8 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow a 2) (+ (* -1/4 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (* (pow a 2) (+ (* -1/8 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 5) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (* 1/8 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow a 2) (+ (* (pow a 2) (+ (* -1/2 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 5) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* 1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow a 2) (+ (* -1/8 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/4 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow a 2) (+ (* 1/4 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (* (pow a 2) (+ (* -1/8 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/8 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 5) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow a 2) (+ (* (pow a 2) (+ (* -1/2 (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 5) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) (* (pow a 2) (+ (* -1/2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) (* (pow a 2) (+ (* (pow a 2) (+ (* -1/2 (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (* (pow b 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 6)) (* (pow b 5) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) #s(hole binary64 (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* 1/4 (* b (* x-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* x-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* 1/4 (/ (* (pow a 2) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* b (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* x-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow a 2) (+ (* -1/8 (/ (* (pow a 2) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/4 (/ (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* x-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow a 2) (+ (* 1/4 (/ (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (* (pow a 2) (+ (* -1/8 (/ (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/8 (/ (* (pow a 2) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 5) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* b (* x-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* b (* x-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (/ (* (pow a 2) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* b (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* b (* x-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow a 2) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* b (* x-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow a 2) (+ (* (pow a 2) (+ (* -1/2 (/ (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow b 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow a 2) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 5) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* b (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* b (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* b (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* b (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (* (pow a 2) (+ (* -1/2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* b (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* b (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (* (pow a 2) (+ (* (pow a 2) (+ (* -1/2 (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (* (pow b 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 6)) (* (pow b 5) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* b (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (pow (* a (cos (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))
#s(approx (* a (cos (* 1/180 (* angle (PI))))) #s(hole binary64 (* a (cos (* 1/180 (* angle (PI)))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (* (pow a 2) (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (pow a 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) 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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* (pow b 4) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow b 4) (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 4) (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow a 2) (+ (* 4 (* (/ (* (pow a 2) (* (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 (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 x-scale 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)))))) (* 8 (/ (* (pow b 4) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 4) (+ (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) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow a 2) (+ (* 8 (/ (* (pow b 4) (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow a 2) (+ (* -2 (* (/ (* (pow a 2) (* (pow b 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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 x-scale 2) (pow y-scale 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))))) (* 4 (* (/ (* (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 (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 x-scale 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 (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) #s(hole binary64 (* 8 (/ (* (pow a 4) (pow b 4)) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -8 (/ (* (pow a 2) (pow b 2)) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* -4 (/ (* (pow a 2) (pow b 2)) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* 4 (* (* b a) (* b (neg a)))) #s(hole binary64 (* -4 (* (pow a 2) (pow b 2)))))
#s(approx (* (* b a) (* b (neg a))) #s(hole binary64 (* -1 (* (pow a 2) (pow b 2)))))
#s(approx (* b a) #s(hole binary64 (* a b)))
#s(approx (* b (neg a)) #s(hole binary64 (* -1 (* a b))))
#s(approx (neg a) #s(hole binary64 (* -1 a)))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (pow (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (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 (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (/ (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 (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))))))))) (+ (/ (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 (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 (/ (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (* y-scale y-scale)) #s(hole binary64 (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (/ (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (* y-scale y-scale)) #s(hole binary64 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 4)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 6)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 4)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (* 1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (* a (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (* a (+ (* -1/8 (/ (* (pow b 4) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (* a (+ (* -1/8 (/ (* (pow b 4) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/8 (/ (* (pow b 6) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (* a (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (* a (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 4)) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 4)) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 6)) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))) #s(hole binary64 (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))) #s(hole binary64 (* (pow a 2) (+ (* 2 (/ (* (pow b 2) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2)) (pow a 2))) (* 2 (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (* -1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* -1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (* -1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (* 1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (* -1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (+ (* -1/8 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (* 1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* 1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (+ (* -1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (+ (* -1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/8 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* a (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* a (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (pow (cos (* 1/180 (* angle (PI)))) 6)) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* 1/4 (* a (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (+ (* 1/4 (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (+ (* -1/8 (/ (* (pow b 4) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/4 (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (+ (* -1/8 (/ (* (pow b 4) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/8 (/ (* (pow b 6) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* 1/4 (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* a (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* a (+ (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* a (+ (* -1/2 (/ (* (pow b 4) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* a (+ (* -1/2 (/ (* (pow b 4) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* a (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* a (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (pow (sin (* 1/180 (* angle (PI)))) 6)) (* (pow a 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))
#s(approx (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (* (pow a 2) (+ (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow a 2))) (* 2 (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 3) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 6) (* (pow b 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 6) (+ (* 8 (/ (* (pow b 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow b 4) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow a 2) (* (pow x-scale 2) (pow y-scale 2)))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 6) (+ (* 4 (* (/ (* (pow b 4) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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) (* (pow x-scale 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)))))) (+ (* 8 (/ (* (pow b 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow b 4) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow a 2) (* (pow x-scale 2) (pow y-scale 2))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 6) (+ (* -2 (* (/ (* (pow b 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) (* (pow x-scale 2) (pow y-scale 2)))) (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))))) (+ (* 4 (* (/ (* (pow b 4) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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) (* (pow x-scale 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)))))) (+ (* 8 (/ (* (pow b 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow b 4) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow a 2) (* (pow x-scale 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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))) (+ (/ (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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)))))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 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)) (/ (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) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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)))))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 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)) (/ (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) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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)))))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (/ (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (* y-scale y-scale)) #s(hole binary64 (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (/ (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (* y-scale y-scale)) #s(hole binary64 (* (pow a 2) (+ (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow y-scale 2)))) (* 2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 4)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (pow a 2)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 6)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))) (pow a 4)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (* -1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (* -1 (* a (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (* -1 (* a (+ (* -1/8 (/ (* (pow b 4) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (* -1 (* a (+ (* -1/8 (/ (* (pow b 4) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/8 (/ (* (pow b 6) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (* -1 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (* -1 (* a (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (* -1 (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (* -1 (* a (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 4)) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 4)) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 6)) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* 1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (* -1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* -1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (* -1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (* 1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (* -1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (+ (* -1/8 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (* 1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (+ (* -1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (+ (* -1/8 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/8 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* 1/4 (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* a (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* a (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (pow (cos (* 1/180 (* angle (PI)))) 6)) (* (pow a 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1/4 (* a (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (+ (* 1/4 (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (+ (* -1/8 (/ (* (pow b 4) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/4 (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (+ (* -1/8 (/ (* (pow b 4) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/8 (/ (* (pow b 6) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* 1/4 (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow b 2) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* a (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* a (+ (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow b 2) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* a (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* a (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow b 6) (pow (sin (* 1/180 (* angle (PI)))) 6)) (* (pow a 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow a 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow a 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow a 3) (- (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 3) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow a 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow a 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow a 3) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow a 2) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 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))))))) (* 1/4 (/ (pow (+ (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (* (/ (* (pow b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 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) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))) (sqrt (/ 1 (+ (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 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) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (sqrt (/ 1 (+ (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 (cos (* 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) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))) (sqrt (/ 1 (+ (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 (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 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (+ (* 1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2) (sqrt 8)))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (+ (* 1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow b 2) (+ (* -1/8 (/ (* (pow b 2) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 4) (sqrt 8)))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/4 (/ (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (+ (* 1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow b 2) (+ (* 1/4 (/ (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (* (pow b 2) (+ (* -1/8 (/ (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 4) (sqrt 8))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/8 (/ (* (pow b 2) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 6) (sqrt 8)))) (* (pow a 5) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (+ (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (/ (* (pow b 2) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2) (sqrt 8)))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (+ (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow b 2) (+ (* -1/2 (/ (* (pow b 2) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 4) (sqrt 8)))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (+ (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow b 2) (+ (* (pow b 2) (+ (* -1/2 (/ (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 4) (sqrt 8))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow b 2) (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 6) (sqrt 8)))) (* (pow a 5) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (* y-scale (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (* (pow b 2) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2)) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (* (pow b 2) (+ (* -1/2 (/ (* (pow b 2) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 4)) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (* (pow b 2) (+ (* (pow b 2) (+ (* -1/2 (/ (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 4) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow b 2) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 6)) (* (pow a 5) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)) #s(hole binary64 (* 2 (* (pow b 2) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2)))))
#s(approx (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2) #s(hole binary64 (* (pow b 2) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2))))
#s(approx (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) #s(hole binary64 (* b (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))))))
#s(approx b #s(hole binary64 b))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* -1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow b 2) (+ (* -1/4 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (* 1/8 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow b 2) (+ (* -1/4 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (* (pow b 2) (+ (* -1/8 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 5) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (* 1/8 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow b 2) (+ (* -1/2 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow b 2) (+ (* (pow b 2) (+ (* -1/2 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 5) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* b (* y-scale 4)) #s(hole binary64 (* 4 (* b y-scale))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* 1/4 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow b 2) (+ (* -1/8 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/4 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow b 2) (+ (* 1/4 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (* (pow b 2) (+ (* -1/8 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/8 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 5) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow b 2) (+ (* -1/2 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* a (* y-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow b 2) (+ (* (pow b 2) (+ (* -1/2 (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow b 2) (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 5) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (* y-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (* (pow b 2) (+ (* -1/2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (* (pow b 2) (+ (* (pow b 2) (+ (* -1/2 (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (* (pow a 3) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 6)) (* (pow a 5) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* a (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* 1/4 (/ (* (pow b 2) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* a (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* a (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow b 2) (+ (* -1/8 (/ (* (pow b 2) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/4 (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* a (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))))) (* (pow b 2) (+ (* 1/4 (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (* (pow b 2) (+ (* -1/8 (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow a 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/8 (/ (* (pow b 2) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 5) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* a (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (/ (* (pow b 2) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* a (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* a (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow b 2) (+ (* -1/2 (/ (* (pow b 2) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow a 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* a (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* (pow b 2) (+ (* (pow b 2) (+ (* -1/2 (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8))) (* (pow a 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow b 2) (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow a 5) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (* x-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* a (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* a (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* a (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* a (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) (* (pow b 2) (+ (* -1/2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow a 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* a (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* a (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))) (* (pow b 2) (+ (* (pow b 2) (+ (* -1/2 (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (* (pow a 3) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (* 1/2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 6)) (* (pow a 5) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* a (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (* (pow b 2) (- (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (/ (* (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (- (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (+ (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 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 4) (* (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 (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow b 2) (+ (* 4 (* (/ (* (pow a 4) (* (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))))))) (* (pow x-scale 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)))))) (* 8 (/ (* (pow a 4) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 4) (+ (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow b 2) (+ (* 8 (/ (* (pow a 4) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow b 2) (+ (* -2 (* (/ (* (pow a 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)))))))) (* (pow x-scale 2) (pow y-scale 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))))) (* 4 (* (/ (* (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 (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 x-scale 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 (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (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 (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (/ (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 (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))))))))) (+ (/ (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 4)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 6)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 4)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (* b (+ (* 1/4 (* y-scale (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2)))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (* b (+ (* -1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/4 (* y-scale (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (* b (+ (* -1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/8 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* 1/4 (* y-scale (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2)))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (* b (+ (* y-scale (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (* b (+ (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (pow (sin (* 1/180 (* angle (PI)))) 6)) (* (pow b 6) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2))))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))) #s(hole binary64 (* (pow b 2) (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow b 2))) (* 2 (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (* -1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* -1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (* -1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (* 1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (* -1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (+ (* -1/8 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (* 1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (+ (* 1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (+ (* -1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (+ (* -1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/8 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* 1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* b (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* b (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (pow (sin (* 1/180 (* angle (PI)))) 6)) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (+ (* 1/4 (* x-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (+ (* -1/8 (/ (* (pow a 4) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/4 (* x-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (+ (* -1/8 (/ (* (pow a 4) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/8 (/ (* (pow a 6) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* 1/4 (* x-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* b (+ (* x-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* b (+ (* -1/2 (/ (* (pow a 4) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* x-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* b (+ (* -1/2 (/ (* (pow a 4) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* x-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* b (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (pow (cos (* 1/180 (* angle (PI)))) 6)) (* (pow b 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (* (pow b 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow b 2))) (* 2 (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 3) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 6) (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 6) (+ (* 8 (/ (* (pow a 4) (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (+ (* 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 (cos (* 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 x-scale 2) (pow y-scale 2)))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 6) (+ (* 4 (* (/ (* (pow a 4) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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) (* (pow x-scale 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)))))) (+ (* 8 (/ (* (pow a 4) (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (+ (* 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 (cos (* 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 x-scale 2) (pow y-scale 2))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 6) (+ (* -2 (* (/ (* (pow a 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) (* (pow x-scale 2) (pow y-scale 2)))) (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))))) (+ (* 4 (* (/ (* (pow a 4) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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) (* (pow x-scale 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)))))) (+ (* 8 (/ (* (pow a 4) (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (+ (* 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 (cos (* 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 x-scale 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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))) (+ (/ (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 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)) (/ (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 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)) (/ (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (/ (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (* y-scale y-scale)) #s(hole binary64 (* (pow b 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2)))) (* 2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 4)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 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 (cos (* 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)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 6)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))) (pow b 4)) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (* -1/4 (* b (* y-scale (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (* -1 (* b (+ (* 1/4 (* y-scale (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (* -1 (* b (+ (* -1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/4 (* y-scale (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (* -1 (* b (+ (* -1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/8 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* 1/4 (* y-scale (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2))))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (* -1 (* b (* y-scale (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (* -1 (* b (+ (* y-scale (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (* -1 (* b (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (* -1 (* b (+ (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (pow (sin (* 1/180 (* angle (PI)))) 6)) (* (pow b 6) (* (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sqrt 2)))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* 1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (* -1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* -1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (* -1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (* 1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3)))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (* -1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (+ (* -1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (+ (* -1/8 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (* 1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1/4 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (+ (* 1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (+ (* -1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (+ (* -1/8 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/8 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* 1/4 (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* b (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* y-scale (* (cos (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* b (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (pow (sin (* 1/180 (* angle (PI)))) 6)) (* (pow b 6) (* (pow (cos (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1/4 (* b (* x-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (+ (* 1/4 (* x-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (+ (* -1/8 (/ (* (pow a 4) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/4 (* x-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (+ (* -1/8 (/ (* (pow a 4) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/8 (/ (* (pow a 6) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* 1/4 (* x-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))) (* 1/4 (/ (* (pow a 2) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* b (* x-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* b (+ (* x-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* x-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (pow b 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sqrt 8)))) (* (pow b 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* x-scale (* (sin (* 1/180 (* angle (PI)))) (* (sqrt 2) (sqrt 8)))) (/ (* (pow a 2) (* x-scale (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sqrt 8)))) (* (pow b 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* b (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* b (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 4) (* (pow (sin (* 1/180 (* angle (PI)))) 3) (pow (sqrt 2) 3))))) (+ (* 1/2 (/ (* (pow a 6) (pow (cos (* 1/180 (* angle (PI)))) 6)) (* (pow b 6) (* (pow (sin (* 1/180 (* angle (PI)))) 5) (pow (sqrt 2) 5))))) (+ (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow b 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow b 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow b 3) (- (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 3) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow b 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow b 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (pow b 3) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 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 (cos (* 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) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* -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)))))) (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 (/ (* (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (* 1/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)))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 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))))))) (* 1/4 (/ (pow (+ (* 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (+ (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)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))))))) (* b (sqrt 2)))) (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* b (sqrt 2)))) (* 1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* b (sqrt 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* 1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* 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/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (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 b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))))) (* 1/2 (/ (* (pow x-scale 2) (* (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* b (sqrt 2)))) (* 1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (* 1/4 (* b (* y-scale (* (sin (* 1/2 (PI))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (+ (* 1/360 (/ (* angle (* b (* y-scale (* (PI) (* (cos (* 1/2 (PI))) (sqrt 8)))))) (sqrt 2))) (* 1/4 (* b (* y-scale (* (sin (* 1/2 (PI))) (* (sqrt 2) (sqrt 8)))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (sin (* 1/2 (PI))) (* (sqrt 2) (sqrt 8)))))) (* angle (+ (* 1/360 (/ (* b (* y-scale (* (PI) (* (cos (* 1/2 (PI))) (sqrt 8))))) (sqrt 2))) (* 1/8 (/ (* angle (* y-scale (* (sqrt 8) (- (+ (* 1/16200 (* (pow a 2) (pow (PI) 2))) (* 2 (* (pow b 2) (+ (* -1/32400 (* (pow (PI) 2) (pow (sin (* 1/2 (PI))) 2))) (* 1/32400 (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2))))))) (* 1/8100 (/ (* (pow b 2) (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2))) (pow (sqrt 2) 2))))))) (* b (* (sin (* 1/2 (PI))) (sqrt 2))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (sin (* 1/2 (PI))) (* (sqrt 2) (sqrt 8)))))) (* angle (+ (* 1/360 (/ (* b (* y-scale (* (PI) (* (cos (* 1/2 (PI))) (sqrt 8))))) (sqrt 2))) (* angle (+ (* 1/8 (/ (* angle (* y-scale (* (sqrt 8) (- (* 2 (* (pow b 2) (+ (* -1/5832000 (* (pow (PI) 3) (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI)))))) (* -1/17496000 (* (pow (PI) 3) (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))))))) (* 1/90 (/ (* (PI) (* (cos (* 1/2 (PI))) (- (+ (* 1/16200 (* (pow a 2) (pow (PI) 2))) (* 2 (* (pow b 2) (+ (* -1/32400 (* (pow (PI) 2) (pow (sin (* 1/2 (PI))) 2))) (* 1/32400 (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2))))))) (* 1/8100 (/ (* (pow b 2) (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2))) (pow (sqrt 2) 2)))))) (* (sin (* 1/2 (PI))) (pow (sqrt 2) 2)))))))) (* b (* (sin (* 1/2 (PI))) (sqrt 2))))) (* 1/8 (/ (* y-scale (* (sqrt 8) (- (+ (* 1/16200 (* (pow a 2) (pow (PI) 2))) (* 2 (* (pow b 2) (+ (* -1/32400 (* (pow (PI) 2) (pow (sin (* 1/2 (PI))) 2))) (* 1/32400 (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2))))))) (* 1/8100 (/ (* (pow b 2) (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2))) (pow (sqrt 2) 2)))))) (* b (* (sin (* 1/2 (PI))) (sqrt 2))))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (* b (* y-scale (* (sin (* 1/2 (PI))) (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (+ (* 1/90 (/ (* angle (* b (* y-scale (* (PI) (* (cos (* 1/2 (PI))) (sqrt 8)))))) (sqrt 2))) (* b (* y-scale (* (sin (* 1/2 (PI))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (+ (* angle (+ (* 1/90 (/ (* b (* y-scale (* (PI) (* (cos (* 1/2 (PI))) (sqrt 8))))) (sqrt 2))) (* 1/2 (/ (* angle (* y-scale (* (sqrt 8) (- (+ (* 1/16200 (* (pow a 2) (pow (PI) 2))) (* 2 (* (pow b 2) (+ (* -1/32400 (* (pow (PI) 2) (pow (sin (* 1/2 (PI))) 2))) (* 1/32400 (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2))))))) (* 1/8100 (/ (* (pow b 2) (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2))) (pow (sqrt 2) 2))))))) (* b (* (sin (* 1/2 (PI))) (sqrt 2))))))) (* b (* y-scale (* (sin (* 1/2 (PI))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (+ (* angle (+ (* 1/90 (/ (* b (* y-scale (* (PI) (* (cos (* 1/2 (PI))) (sqrt 8))))) (sqrt 2))) (* angle (+ (* 1/2 (/ (* angle (* y-scale (* (sqrt 8) (- (* 2 (* (pow b 2) (+ (* -1/5832000 (* (pow (PI) 3) (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI)))))) (* -1/17496000 (* (pow (PI) 3) (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))))))) (* 1/90 (/ (* (PI) (* (cos (* 1/2 (PI))) (- (+ (* 1/16200 (* (pow a 2) (pow (PI) 2))) (* 2 (* (pow b 2) (+ (* -1/32400 (* (pow (PI) 2) (pow (sin (* 1/2 (PI))) 2))) (* 1/32400 (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2))))))) (* 1/8100 (/ (* (pow b 2) (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2))) (pow (sqrt 2) 2)))))) (* (sin (* 1/2 (PI))) (pow (sqrt 2) 2)))))))) (* b (* (sin (* 1/2 (PI))) (sqrt 2))))) (* 1/2 (/ (* y-scale (* (sqrt 8) (- (+ (* 1/16200 (* (pow a 2) (pow (PI) 2))) (* 2 (* (pow b 2) (+ (* -1/32400 (* (pow (PI) 2) (pow (sin (* 1/2 (PI))) 2))) (* 1/32400 (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2))))))) (* 1/8100 (/ (* (pow b 2) (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2))) (pow (sqrt 2) 2)))))) (* b (* (sin (* 1/2 (PI))) (sqrt 2))))))))) (* b (* y-scale (* (sin (* 1/2 (PI))) (* (sqrt 2) (sqrt 8))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (* b (* (sin (* 1/2 (PI))) (sqrt 2)))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (+ (* 1/90 (/ (* angle (* b (* (PI) (cos (* 1/2 (PI)))))) (sqrt 2))) (* b (* (sin (* 1/2 (PI))) (sqrt 2))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (+ (* angle (+ (* 1/90 (/ (* b (* (PI) (cos (* 1/2 (PI))))) (sqrt 2))) (* 1/2 (/ (* angle (- (+ (* 1/16200 (* (pow a 2) (pow (PI) 2))) (* 2 (* (pow b 2) (+ (* -1/32400 (* (pow (PI) 2) (pow (sin (* 1/2 (PI))) 2))) (* 1/32400 (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2))))))) (* 1/8100 (/ (* (pow b 2) (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2))) (pow (sqrt 2) 2))))) (* b (* (sin (* 1/2 (PI))) (sqrt 2))))))) (* b (* (sin (* 1/2 (PI))) (sqrt 2))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (+ (* angle (+ (* 1/90 (/ (* b (* (PI) (cos (* 1/2 (PI))))) (sqrt 2))) (* angle (+ (* 1/2 (/ (* angle (- (* 2 (* (pow b 2) (+ (* -1/5832000 (* (pow (PI) 3) (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI)))))) (* -1/17496000 (* (pow (PI) 3) (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))))))) (* 1/90 (/ (* (PI) (* (cos (* 1/2 (PI))) (- (+ (* 1/16200 (* (pow a 2) (pow (PI) 2))) (* 2 (* (pow b 2) (+ (* -1/32400 (* (pow (PI) 2) (pow (sin (* 1/2 (PI))) 2))) (* 1/32400 (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2))))))) (* 1/8100 (/ (* (pow b 2) (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2))) (pow (sqrt 2) 2)))))) (* (sin (* 1/2 (PI))) (pow (sqrt 2) 2)))))) (* b (* (sin (* 1/2 (PI))) (sqrt 2))))) (* 1/2 (/ (- (+ (* 1/16200 (* (pow a 2) (pow (PI) 2))) (* 2 (* (pow b 2) (+ (* -1/32400 (* (pow (PI) 2) (pow (sin (* 1/2 (PI))) 2))) (* 1/32400 (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2))))))) (* 1/8100 (/ (* (pow b 2) (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2))) (pow (sqrt 2) 2)))) (* b (* (sin (* 1/2 (PI))) (sqrt 2))))))))) (* b (* (sin (* 1/2 (PI))) (sqrt 2))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))) #s(hole binary64 (* 2 (* (pow b 2) (pow (sin (* 1/2 (PI))) 2)))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))) #s(hole binary64 (+ (* 1/45 (* angle (* (pow b 2) (* (PI) (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI)))))))) (* 2 (* (pow b 2) (pow (sin (* 1/2 (PI))) 2))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))) #s(hole binary64 (+ (* 2 (* (pow b 2) (pow (sin (* 1/2 (PI))) 2))) (* angle (+ (* 1/45 (* (pow b 2) (* (PI) (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))))) (* angle (+ (* 1/16200 (* (pow a 2) (pow (PI) 2))) (* 2 (* (pow b 2) (+ (* -1/32400 (* (pow (PI) 2) (pow (sin (* 1/2 (PI))) 2))) (* 1/32400 (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2)))))))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))) #s(hole binary64 (+ (* 2 (* (pow b 2) (pow (sin (* 1/2 (PI))) 2))) (* angle (+ (* 1/45 (* (pow b 2) (* (PI) (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))))) (* angle (+ (* 1/16200 (* (pow a 2) (pow (PI) 2))) (+ (* 2 (* angle (* (pow b 2) (+ (* -1/5832000 (* (pow (PI) 3) (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI)))))) (* -1/17496000 (* (pow (PI) 3) (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI)))))))))) (* 2 (* (pow b 2) (+ (* -1/32400 (* (pow (PI) 2) (pow (sin (* 1/2 (PI))) 2))) (* 1/32400 (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 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 (* angle (PI)) #s(hole binary64 (* angle (PI))))
#s(approx angle #s(hole binary64 angle))
#s(approx (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)) #s(hole binary64 (* 2 (* (pow b 2) (pow (sin (* 1/2 (PI))) 2)))))
#s(approx (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)) #s(hole binary64 (+ (* 1/45 (* angle (* (pow b 2) (* (PI) (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI)))))))) (* 2 (* (pow b 2) (pow (sin (* 1/2 (PI))) 2))))))
#s(approx (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)) #s(hole binary64 (+ (* 2 (* (pow b 2) (pow (sin (* 1/2 (PI))) 2))) (* angle (+ (* 1/45 (* (pow b 2) (* (PI) (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))))) (* 2 (* angle (* (pow b 2) (+ (* -1/32400 (* (pow (PI) 2) (pow (sin (* 1/2 (PI))) 2))) (* 1/32400 (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2))))))))))))
#s(approx (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)) #s(hole binary64 (+ (* 2 (* (pow b 2) (pow (sin (* 1/2 (PI))) 2))) (* angle (+ (* 1/45 (* (pow b 2) (* (PI) (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))))) (* angle (+ (* 2 (* angle (* (pow b 2) (+ (* -1/5832000 (* (pow (PI) 3) (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI)))))) (* -1/17496000 (* (pow (PI) 3) (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI)))))))))) (* 2 (* (pow b 2) (+ (* -1/32400 (* (pow (PI) 2) (pow (sin (* 1/2 (PI))) 2))) (* 1/32400 (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2)))))))))))))
#s(approx (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2) #s(hole binary64 (* (pow b 2) (pow (sin (* 1/2 (PI))) 2))))
#s(approx (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2) #s(hole binary64 (+ (* 1/90 (* angle (* (pow b 2) (* (PI) (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI)))))))) (* (pow b 2) (pow (sin (* 1/2 (PI))) 2)))))
#s(approx (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2) #s(hole binary64 (+ (* angle (+ (* 1/90 (* (pow b 2) (* (PI) (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))))) (* angle (* (pow b 2) (+ (* -1/32400 (* (pow (PI) 2) (pow (sin (* 1/2 (PI))) 2))) (* 1/32400 (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2)))))))) (* (pow b 2) (pow (sin (* 1/2 (PI))) 2)))))
#s(approx (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2) #s(hole binary64 (+ (* angle (+ (* 1/90 (* (pow b 2) (* (PI) (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))))) (* angle (+ (* angle (* (pow b 2) (+ (* -1/5832000 (* (pow (PI) 3) (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI)))))) (* -1/17496000 (* (pow (PI) 3) (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))))))) (* (pow b 2) (+ (* -1/32400 (* (pow (PI) 2) (pow (sin (* 1/2 (PI))) 2))) (* 1/32400 (* (pow (PI) 2) (pow (cos (* 1/2 (PI))) 2))))))))) (* (pow b 2) (pow (sin (* 1/2 (PI))) 2)))))
#s(approx (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) #s(hole binary64 (* b (sin (* 1/2 (PI))))))
#s(approx (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) #s(hole binary64 (+ (* 1/180 (* angle (* b (* (PI) (cos (* 1/2 (PI))))))) (* b (sin (* 1/2 (PI)))))))
#s(approx (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) #s(hole binary64 (+ (* angle (+ (* -1/64800 (* angle (* b (* (pow (PI) 2) (sin (* 1/2 (PI))))))) (* 1/180 (* b (* (PI) (cos (* 1/2 (PI)))))))) (* b (sin (* 1/2 (PI)))))))
#s(approx (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) #s(hole binary64 (+ (* angle (+ (* 1/180 (* b (* (PI) (cos (* 1/2 (PI)))))) (* angle (+ (* -1/64800 (* b (* (pow (PI) 2) (sin (* 1/2 (PI)))))) (* -1/34992000 (* angle (* b (* (pow (PI) 3) (cos (* 1/2 (PI))))))))))) (* b (sin (* 1/2 (PI)))))))
#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 (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* -1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))))) (* b (sqrt 2)))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* -1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* -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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* b (sqrt 2)))) (* -1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))))) (* b (sqrt 2)))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* -1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* -1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* -1/8 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* 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)))) (* 1/2 (/ (* (pow x-scale 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)))) (- (+ (* -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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* b (sqrt 2)))) (* -1/8 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* -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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* b (* y-scale (* (sqrt 2) (sqrt 8))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* 1/2 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))))) (* b (sqrt 2)))) (* b (* y-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* b (* y-scale (* (sqrt 2) (sqrt 8)))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* -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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* b (sqrt 2)))) (* 1/2 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))))) (* b (sqrt 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (+ (* b (* y-scale (* (sqrt 2) (sqrt 8)))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* 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)))) (* 1/2 (/ (* (pow x-scale 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)))) (- (+ (* -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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* b (sqrt 2)))) (* 1/2 (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (+ (* -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)))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) 2)) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/8 (/ (* (pow angle 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2))))))) (* b (sqrt 2)))) (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* y-scale (* (sqrt 8) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))))) (* b (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* y-scale (* (sqrt 8) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* b (* y-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* y-scale (* (sqrt 8) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* 1/8 (/ (* y-scale (* (sqrt 8) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2))))))) (* b (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* y-scale (* (sqrt 8) (- (+ (* 2 (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* 2 (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))))) (* 1/2 (/ (* (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2)))))) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* b (* y-scale (* (sqrt 2) (sqrt 8))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* 1/2 (/ (* (pow angle 2) (* y-scale (* (sqrt 8) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2))))))) (* b (sqrt 2)))) (* b (* y-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* b (* y-scale (* (sqrt 2) (sqrt 8)))) (* (pow angle 2) (+ (* 1/2 (/ (* y-scale (* (sqrt 8) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))))) (* b (sqrt 2)))) (* 1/2 (/ (* (pow angle 2) (* y-scale (* (sqrt 8) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* b (* y-scale (* (sqrt 2) (sqrt 8)))) (* (pow angle 2) (+ (* 1/2 (/ (* y-scale (* (sqrt 8) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* 1/2 (/ (* y-scale (* (sqrt 8) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2))))))) (* b (sqrt 2)))) (* 1/2 (/ (* (pow angle 2) (* y-scale (* (sqrt 8) (- (+ (* 2 (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* 2 (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))))) (* 1/2 (/ (* (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2)))))) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* b (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* b (sqrt 2))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* 1/2 (/ (* (pow angle 2) (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2))))) (* b (sqrt 2)))) (* b (sqrt 2)))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* b (sqrt 2)) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2)))))) (* b (sqrt 2)))) (* 1/2 (/ (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) (* b (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* b (sqrt 2)) (* (pow angle 2) (+ (* 1/2 (/ (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) (* b (sqrt 2)))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (- (+ (* 2 (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (* 2 (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))))) (* 1/2 (/ (* (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2)))))) (* (pow b 2) (pow (sqrt 2) 2)))))) (* b (sqrt 2)))) (* 1/2 (/ (- (+ (* -1/1574640000 (* (pow a 2) (pow (PI) 4))) (* 2 (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow b 2) (pow (PI) 2))) (* 1/16200 (* (pow a 2) (pow (PI) 2)))) 2) (* (pow b 2) (pow (sqrt 2) 2))))) (* b (sqrt 2)))))))))))
#s(approx (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) #s(hole binary64 (* 1/180 (* a (* angle (* (PI) (sqrt 2)))))))
#s(approx (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) #s(hole binary64 (* angle (+ (* -1/34992000 (* a (* (pow angle 2) (* (pow (PI) 3) (sqrt 2))))) (* 1/180 (* a (* (PI) (sqrt 2))))))))
#s(approx (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) #s(hole binary64 (* angle (+ (* 1/180 (* a (* (PI) (sqrt 2)))) (* (pow angle 2) (+ (* -1/34992000 (* a (* (pow (PI) 3) (sqrt 2)))) (* 1/22674816000000 (* a (* (pow angle 2) (* (pow (PI) 5) (sqrt 2)))))))))))
#s(approx (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) #s(hole binary64 (* angle (+ (* 1/180 (* a (* (PI) (sqrt 2)))) (* (pow angle 2) (+ (* -1/34992000 (* a (* (pow (PI) 3) (sqrt 2)))) (* (pow angle 2) (+ (* -1/30855889612800000000 (* a (* (pow angle 2) (* (pow (PI) 7) (sqrt 2))))) (* 1/22674816000000 (* a (* (pow (PI) 5) (sqrt 2))))))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) #s(hole binary64 (* 1/180 (* angle (* (PI) (sqrt 2))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) #s(hole binary64 (* angle (+ (* -1/34992000 (* (pow angle 2) (* (pow (PI) 3) (sqrt 2)))) (* 1/180 (* (PI) (sqrt 2)))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) #s(hole binary64 (* angle (+ (* 1/180 (* (PI) (sqrt 2))) (* (pow angle 2) (+ (* -1/34992000 (* (pow (PI) 3) (sqrt 2))) (* 1/22674816000000 (* (pow angle 2) (* (pow (PI) 5) (sqrt 2))))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) #s(hole binary64 (* angle (+ (* 1/180 (* (PI) (sqrt 2))) (* (pow angle 2) (+ (* -1/34992000 (* (pow (PI) 3) (sqrt 2))) (* (pow angle 2) (+ (* -1/30855889612800000000 (* (pow angle 2) (* (pow (PI) 7) (sqrt 2)))) (* 1/22674816000000 (* (pow (PI) 5) (sqrt 2)))))))))))
#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 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/8 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (* 1/16200 (* (pow b 2) (pow (PI) 2))))))) (* a (sqrt 2)))) (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (sqrt 8) (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (* 1/16200 (* (pow b 2) (pow (PI) 2)))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (- (+ (* -1/1574640000 (* (pow b 2) (pow (PI) 4))) (* 2 (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (* 1/16200 (* (pow b 2) (pow (PI) 2)))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))))) (* a (sqrt 2)))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (* 1/4 (* a (* x-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (sqrt 8) (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (* 1/16200 (* (pow b 2) (pow (PI) 2)))))) (* a (sqrt 2)))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (sqrt 8) (- (+ (* -1/1574640000 (* (pow b 2) (pow (PI) 4))) (* 2 (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (* 1/16200 (* (pow b 2) (pow (PI) 2)))) 2) (* (pow a 2) (pow (sqrt 2) 2))))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (- (+ (* 2 (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))) (* 2 (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))))) (* 1/2 (/ (* (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (* 1/16200 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -1/1574640000 (* (pow b 2) (pow (PI) 4))) (* 2 (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (* 1/16200 (* (pow b 2) (pow (PI) 2)))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))) (* (pow a 2) (pow (sqrt 2) 2)))))))) (* a (sqrt 2)))))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* a (* x-scale (* (sqrt 2) (sqrt 8))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* 1/2 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (* 1/16200 (* (pow b 2) (pow (PI) 2))))))) (* a (sqrt 2)))) (* a (* x-scale (* (sqrt 2) (sqrt 8)))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* a (* x-scale (* (sqrt 2) (sqrt 8)))) (* (pow angle 2) (+ (* 1/2 (/ (* x-scale (* (sqrt 8) (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (* 1/16200 (* (pow b 2) (pow (PI) 2)))))) (* a (sqrt 2)))) (* 1/2 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (- (+ (* -1/1574640000 (* (pow b 2) (pow (PI) 4))) (* 2 (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (* 1/16200 (* (pow b 2) (pow (PI) 2)))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))))) (* a (sqrt 2)))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (+ (* a (* x-scale (* (sqrt 2) (sqrt 8)))) (* (pow angle 2) (+ (* 1/2 (/ (* x-scale (* (sqrt 8) (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (* 1/16200 (* (pow b 2) (pow (PI) 2)))))) (* a (sqrt 2)))) (* (pow angle 2) (+ (* 1/2 (/ (* x-scale (* (sqrt 8) (- (+ (* -1/1574640000 (* (pow b 2) (pow (PI) 4))) (* 2 (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (* 1/16200 (* (pow b 2) (pow (PI) 2)))) 2) (* (pow a 2) (pow (sqrt 2) 2))))))) (* a (sqrt 2)))) (* 1/2 (/ (* (pow angle 2) (* x-scale (* (sqrt 8) (- (+ (* 2 (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))) (* 2 (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))))) (* 1/2 (/ (* (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (* 1/16200 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -1/1574640000 (* (pow b 2) (pow (PI) 4))) (* 2 (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (* 1/16200 (* (pow b 2) (pow (PI) 2)))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))) (* (pow a 2) (pow (sqrt 2) 2)))))))) (* a (sqrt 2)))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* a (sqrt 2))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* 1/2 (/ (* (pow angle 2) (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (* 1/16200 (* (pow b 2) (pow (PI) 2))))) (* a (sqrt 2)))) (* a (sqrt 2)))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* a (sqrt 2)) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (- (+ (* -1/1574640000 (* (pow b 2) (pow (PI) 4))) (* 2 (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (* 1/16200 (* (pow b 2) (pow (PI) 2)))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))) (* a (sqrt 2)))) (* 1/2 (/ (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (* 1/16200 (* (pow b 2) (pow (PI) 2)))) (* a (sqrt 2)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* a (sqrt 2)) (* (pow angle 2) (+ (* 1/2 (/ (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (* 1/16200 (* (pow b 2) (pow (PI) 2)))) (* a (sqrt 2)))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (- (+ (* 2 (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))) (* 2 (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))))) (* 1/2 (/ (* (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (* 1/16200 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -1/1574640000 (* (pow b 2) (pow (PI) 4))) (* 2 (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (* 1/16200 (* (pow b 2) (pow (PI) 2)))) 2) (* (pow a 2) (pow (sqrt 2) 2)))))) (* (pow a 2) (pow (sqrt 2) 2)))))) (* a (sqrt 2)))) (* 1/2 (/ (- (+ (* -1/1574640000 (* (pow b 2) (pow (PI) 4))) (* 2 (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (* 1/4 (/ (pow (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (* 1/16200 (* (pow b 2) (pow (PI) 2)))) 2) (* (pow a 2) (pow (sqrt 2) 2))))) (* a (sqrt 2)))))))))))
#s(approx (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (* 2 (pow a 2))))
#s(approx (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (+ (* 2 (pow a 2)) (* (pow angle 2) (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (* 1/16200 (* (pow b 2) (pow (PI) 2))))))))
#s(approx (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (+ (* 2 (pow a 2)) (* (pow angle 2) (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (+ (* 1/16200 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/1574640000 (* (pow b 2) (pow (PI) 4))) (* 2 (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))))))))
#s(approx (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (+ (* 2 (pow a 2)) (* (pow angle 2) (+ (* -1/16200 (* (pow a 2) (pow (PI) 2))) (+ (* 1/16200 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/1574640000 (* (pow b 2) (pow (PI) 4))) (+ (* 2 (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (* (pow angle 2) (+ (* 2 (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))) (* 2 (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))))))))))))))
#s(approx (pow (* a (cos (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (pow a 2)))
#s(approx (pow (* a (cos (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (+ (* -1/32400 (* (pow a 2) (* (pow angle 2) (pow (PI) 2)))) (pow a 2))))
#s(approx (pow (* a (cos (* 1/180 (* angle (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 (* 1/180 (* angle (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 (* 1/180 (* angle (PI))))) #s(hole binary64 a))
#s(approx (* a (cos (* 1/180 (* angle (PI))))) #s(hole binary64 (+ a (* -1/64800 (* a (* (pow angle 2) (pow (PI) 2)))))))
#s(approx (* a (cos (* 1/180 (* angle (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 (* 1/180 (* angle (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 (* 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 (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (* 1/16200 (* (pow angle 2) (* (pow b 2) (pow (PI) 2))))))
#s(approx (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (* (pow angle 2) (+ (* -1/1574640000 (* (pow angle 2) (* (pow b 2) (pow (PI) 4)))) (* 1/16200 (* (pow b 2) (pow (PI) 2)))))))
#s(approx (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/16200 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/1574640000 (* (pow b 2) (pow (PI) 4))) (* 2 (* (pow angle 2) (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))))))))))
#s(approx (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/16200 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/1574640000 (* (pow b 2) (pow (PI) 4))) (* (pow angle 2) (+ (* 2 (* (pow angle 2) (* (pow b 2) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8)))))) (* 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 (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 angle 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))))))) (* y-scale (sqrt 2)))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* (pow angle 2) (* b (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* y-scale (sqrt 2)))) (* 1/2 (/ (* (pow a 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* y-scale (sqrt 2)))))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (* (pow angle 2) (- (* -1/2 (/ (* (pow a 2) (* (pow angle 2) (* b (* (sqrt 8) (- (+ (* 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/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (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 b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))))) (* 1/2 (/ (* (pow x-scale 2) (* (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* y-scale (sqrt 2)))) (* 1/2 (/ (* (pow a 2) (* b (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* y-scale (sqrt 2)))))) (* 1/2 (/ (* (pow a 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* y-scale (sqrt 2)))))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 angle 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))))))) (* y-scale (sqrt 2)))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* y-scale (sqrt 2)))) (* 1/2 (/ (* (pow a 2) (* (pow angle 2) (* b (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* y-scale (sqrt 2)))))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* b (* (sqrt 8) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))) (* y-scale (sqrt 2)))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow a 2) (* b (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2)))))))) (* y-scale (sqrt 2)))) (* 1/2 (/ (* (pow a 2) (* (pow angle 2) (* b (* (sqrt 8) (- (+ (* 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/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (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 b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))))) (* 1/2 (/ (* (pow x-scale 2) (* (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* 1/4 (/ (* (pow x-scale 2) (pow (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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))))))))) 2)) (* (pow b 2) (pow (sqrt 2) 2))))))) (* (pow b 2) (pow (sqrt 2) 2))))))))) (* y-scale (sqrt 2)))))))) (/ (* (pow a 2) (* (pow b 3) (* (sqrt 2) (sqrt 8)))) (* (pow x-scale 2) y-scale)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))) #s(hole binary64 (* 16 (/ (* (pow a 4) (pow b 6)) (* (pow x-scale 4) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow angle 2) (* (pow b 4) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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 x-scale 2) (pow y-scale 2)))) (* 16 (/ (* (pow a 4) (pow b 6)) (* (pow x-scale 4) (pow y-scale 2)))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))) #s(hole binary64 (+ (* 16 (/ (* (pow a 4) (pow b 6)) (* (pow x-scale 4) (pow y-scale 2)))) (* (pow angle 2) (+ (* 8 (/ (* (pow a 4) (* (pow angle 2) (* (pow b 4) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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 x-scale 2) (pow y-scale 2)))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))) #s(hole binary64 (+ (* 16 (/ (* (pow a 4) (pow b 6)) (* (pow x-scale 4) (pow y-scale 2)))) (* (pow angle 2) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* -1/32400 (/ (* (pow a 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/32400 (/ (* (pow b 2) (pow (PI) 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 x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* 8 (/ (* (pow a 4) (* (pow angle 2) (* (pow b 4) (+ (* 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/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (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 b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))))))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))) (* (pow x-scale 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 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) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (pow x-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 x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 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)))))))))))))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (pow x-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 x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 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 angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (pow x-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 x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 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 angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (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 angle 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/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (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 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 b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))))))))))))
#s(approx (/ (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (* y-scale y-scale)) #s(hole binary64 (* 2 (/ (pow a 2) (pow y-scale 2)))))
#s(approx (/ (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (* y-scale y-scale)) #s(hole binary64 (+ (* 2 (/ (pow a 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))))))
#s(approx (/ (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (* y-scale y-scale)) #s(hole binary64 (+ (* 2 (/ (pow a 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* 1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/1574640000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (* 2 (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))))))))))
#s(approx (/ (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (* y-scale y-scale)) #s(hole binary64 (+ (* 2 (/ (pow a 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* 1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/1574640000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (+ (* 2 (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (* (pow angle 2) (+ (* 2 (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (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 (cos (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))))) #s(hole binary64 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))))) #s(hole binary64 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)))) #s(hole binary64 (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) 2)))))))
#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 (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 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 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 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 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) #s(hole binary64 (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (sin (* 1/180 (* angle (PI))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (cos (* 1/180 (* angle (PI))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (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 (cos (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (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 (cos (* 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)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (pow x-scale 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (+ (/ (* (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)) (+ (/ (* (pow b 2) (pow (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 (/ (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (* y-scale y-scale)) #s(hole binary64 (/ (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow y-scale 2))))
#s(approx (+ (* 1/180 (* angle (PI))) (/ (PI) 2)) #s(hole binary64 (* -1 (* angle (+ (* -1/2 (/ (PI) angle)) (* -1/180 (PI)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/8 (* (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* 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 a 2) (pow (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 (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 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) (+ (* 1/8 (* (* y-scale (* (sqrt 8) (+ (* 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 a 2) (pow (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 (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 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) (+ (* 1/8 (* (* y-scale (* (sqrt 8) (+ (* 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 a 2) (pow (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 (/ 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) (+ (* 1/8 (* (* y-scale (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (* -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 (cos (* 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 (/ (* (+ (* 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 a 2) (pow (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 (cos (* 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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 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)))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* x-scale (sqrt 8)) #s(hole binary64 (* x-scale (sqrt 8))))
#s(approx x-scale #s(hole binary64 x-scale))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* (pow x-scale 2) y-scale)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (pow x-scale 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (- (* -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 (cos (* 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 (/ (* (+ (* 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 a 2) (pow (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 (cos (* 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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 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))))))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* (pow x-scale 2) y-scale)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (pow x-scale 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) y-scale) (sqrt (+ (* 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) y-scale) (sqrt (/ 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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) y-scale) (sqrt (+ (* 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) y-scale) (sqrt (/ 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) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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))))) (* 1/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) y-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (- (* -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 (cos (* 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 (/ (* (+ (* 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 a 2) (pow (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 (cos (* 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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 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))))))))))) y-scale) (sqrt (/ 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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 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 4) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (* (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 a 2) (pow (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 y-scale 2))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)))) (pow x-scale 4))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2))) (* (pow x-scale 2) (+ (* 4 (/ (* (pow a 4) (* (pow b 4) (* (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 y-scale 2) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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 a 2) (pow (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 y-scale 2)))))) (pow x-scale 4))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2))) (* (pow x-scale 2) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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 a 2) (pow (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 y-scale 2))) (* (pow x-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow b 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 y-scale 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 3)))) (* 4 (/ (* (pow a 4) (* (pow b 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) (* 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 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 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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (* 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (+ (* 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 a 2) (pow (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))))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (+ (* 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 a 2) (pow (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))))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (+ (* 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 a 2) (pow (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))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 4)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 6)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 4)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) x-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) x-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 6) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) x-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) x-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) x-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 6) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) x-scale)))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 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) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (pow y-scale 2)))) (pow x-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 4) (- (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 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))))))) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (pow y-scale 2))))) (pow x-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 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 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))) 3))))) (+ (* 4 (/ (* (pow a 4) (* (pow b 4) (- (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 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))))))) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (pow y-scale 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 y-scale 2))) (* 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 4)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* x-scale (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (+ (* 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)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 6)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/8 (* (/ (* y-scale (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow x-scale 4)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (* -1 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) x-scale))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) x-scale))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 6) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) x-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) x-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) x-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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)))) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 6) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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 (/ (pow (+ (* 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)))) 2) (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (* (pow x-scale 4) y-scale)) (sqrt (/ 1 (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (+ (* 2 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) x-scale))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/8 (* (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* 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))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow y-scale 2) (+ (* 1/8 (* (* x-scale (* (sqrt 8) (+ (* 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)))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow y-scale 2) (+ (* 1/8 (* (* x-scale (* (sqrt 8) (+ (* 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)))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* 1/8 (* (* x-scale (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (* -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 (/ (* (+ (* 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)))) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (* y-scale (sqrt 8)) #s(hole binary64 (* y-scale (sqrt 8))))
#s(approx y-scale #s(hole binary64 y-scale))
#s(approx (* y-scale 4) #s(hole binary64 (* 4 y-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale (pow y-scale 2))) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (pow y-scale 2) (* (sqrt 8) (+ (* 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)))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow y-scale 2))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow y-scale 2))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (- (* -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 (/ (* (+ (* 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)))) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow y-scale 2))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale (pow y-scale 2))) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (pow y-scale 2) (* (sqrt 8) (+ (* 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)))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow y-scale 2))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow y-scale 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 2))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) x-scale) (sqrt (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow y-scale 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (- (* -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 (/ (* (+ (* 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)))) (- (* 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/4 (/ (pow (+ (* 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)))) 2) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale) (sqrt (/ 1 (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))) (pow y-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (pow y-scale 4))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (* (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 a 2) (pow (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 x-scale 2))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow x-scale 2)))) (pow y-scale 4))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow x-scale 2))) (* (pow y-scale 2) (+ (* 4 (/ (* (pow a 4) (* (pow b 4) (* (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 x-scale 2) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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)))))) (pow x-scale 2)))))) (pow y-scale 4))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 2 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow x-scale 2))) (* (pow y-scale 2) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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)))))) (pow x-scale 2))) (* (pow y-scale 2) (+ (* -2 (/ (* (pow a 4) (* (pow b 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 x-scale 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 3)))) (* 4 (/ (* (pow a 4) (* (pow b 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) (* 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 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 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (* 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (+ (* 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 a 2) (pow (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))))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (+ (* 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 a 2) (pow (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))))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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))) (+ (* 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 a 2) (pow (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))))
#s(approx (* y-scale y-scale) #s(hole binary64 (pow y-scale 2)))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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))))))))) (pow y-scale 4)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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))))))))) (pow y-scale 6)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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))))))))) (pow y-scale 4)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))) y-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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)))))))) y-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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)))))))))) (* x-scale (pow y-scale 6))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))))) y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))) y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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)))))))) y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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)))))))))) (* x-scale (pow y-scale 6))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))))) y-scale)))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 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)))))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 4) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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)))))) (pow x-scale 2)))) (pow y-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 4) (- (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 x-scale 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))))))) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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)))))) (pow x-scale 2))))) (pow y-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 4) (* (pow b 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 x-scale 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))))) (+ (* 4 (/ (* (pow a 4) (* (pow b 4) (- (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 x-scale 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))))))) (+ (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (* (pow b 4) (+ (* 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)))))) (pow x-scale 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 x-scale 2))) (* 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (* 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))) (+ (/ (* (pow a 2) (pow (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (* 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))) (+ (/ (* (pow a 2) (pow (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)))))) (+ (* 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))) (+ (/ (* (pow a 2) (pow (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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))))))))) (pow y-scale 4)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (* -1 (* y-scale (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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))))))))) (pow y-scale 6)) (sqrt (/ 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)))))))) (+ (* 1/8 (* (/ (* x-scale (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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))))))))) (pow y-scale 4)) (sqrt (/ 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)))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))) y-scale))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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)))))))) y-scale))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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)))))))))) (* x-scale (pow y-scale 6))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))))) y-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (+ (* 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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))) y-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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)))))))) y-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* x-scale (pow y-scale 2))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* -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 (+ (/ (* (pow a 2) (pow (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 (/ (* (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))) (+ (* 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)))))))))) (* x-scale (pow y-scale 6))) (sqrt (/ 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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (* 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 a 2) (pow (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/4 (/ (pow (+ (* 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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) 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)))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 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)))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (+ (* 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))))))))) y-scale))))
Outputs
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (*.f64 #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 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64)))))) (*.f64 #s(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/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (*.f64 #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 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64)))))) (*.f64 #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 1/4 binary64)
(*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (*.f64 #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 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))
(*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))
y-scale
(pow.f64 #s(literal 8 binary64) #s(literal 1/2 binary64))
(sqrt.f64 #s(literal 8 binary64))
#s(literal 8 binary64)
(pow.f64 (fma.f64 #s(literal 2 binary64) (*.f64 #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 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64)))))) (*.f64 #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 1/2 binary64))
(sqrt.f64 (fma.f64 #s(literal 2 binary64) (*.f64 #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 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64)))))) (*.f64 #s(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 #s(literal 2 binary64) (*.f64 #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 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))))) #s(literal 3 binary64)) (pow.f64 (*.f64 #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))) (fma.f64 (*.f64 #s(literal 2 binary64) (*.f64 #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 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 2 binary64) (*.f64 #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 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))))) (-.f64 (*.f64 (*.f64 #s(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 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (*.f64 #s(literal 2 binary64) (*.f64 #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 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))))) (*.f64 #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) (*.f64 #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 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64)))))) (*.f64 #s(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 #s(literal 2 binary64) (*.f64 #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 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))))) (*.f64 #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(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 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))))
(pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64)))))) #s(literal 2 binary64)))
#s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64)))))
(*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))
#s(literal 1/180 binary64)
(*.f64 a (*.f64 angle (PI.f64)))
a
(*.f64 angle (PI.f64))
angle
(PI.f64)
(*.f64 #s(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 (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)))))
b
(sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(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)))))
(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)))
(/.f64 (neg.f64 (PI.f64)) #s(literal -2 binary64))
(/.f64 (PI.f64) #s(literal 2 binary64))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale #s(literal 4 binary64))))))
(*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale #s(literal 4 binary64)))))
#s(literal -1/4 binary64)
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale #s(literal 4 binary64))))
(*.f64 b (*.f64 y-scale #s(literal 4 binary64)))
(*.f64 y-scale #s(literal 4 binary64))
#s(literal 4 binary64)
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
(*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))
(*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #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)))
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(sqrt.f64 #s(literal 2 binary64))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))
(*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))
(*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))
(*.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))
x-scale
(pow.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) #s(literal 1/2 binary64))
(sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))
(/.f64 (+.f64 (pow.f64 (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 (*.f64 #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))) (fma.f64 (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 #s(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 2 binary64) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.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 (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))
(+.f64 (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))
(*.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
(*.f64 (*.f64 a a) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))
(pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) #s(literal 2 binary64)))
(*.f64 a (cos.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 (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)))))
(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 #s(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 (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 (neg.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) #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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 y-scale y-scale))))))) (neg.f64 (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) #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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 y-scale y-scale)))))) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))
(neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) #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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 y-scale y-scale))))))
(*.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))) (sqrt.f64 #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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (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 (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 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) #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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 y-scale y-scale)))) #s(literal 1/2 binary64))
(sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) #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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 y-scale y-scale)))))
(*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) #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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 y-scale y-scale))))
(*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))
(*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))
(/.f64 (neg.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))) (neg.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))
(/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))
(*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a))))
(*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))
(*.f64 b a)
(*.f64 b (neg.f64 a))
(neg.f64 a)
(*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))
(*.f64 (*.f64 x-scale y-scale) (*.f64 x-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)
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 y-scale y-scale)))
(/.f64 (neg.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (neg.f64 (*.f64 y-scale y-scale)))
(/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 y-scale y-scale))
(+.f64 (/.f64 (*.f64 #s(literal 2 binary64) (pow.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 #s(literal 2 binary64) (pow.f64 (*.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 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)))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 a a) (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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/8 binary64) (*.f64 (*.f64 (*.f64 a a) (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(literal 2 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(literal 2 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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/8 binary64) (*.f64 (*.f64 (*.f64 a a) (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.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(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(literal 2 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 4 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 b (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 4 binary64)))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 4 binary64)))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 5 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 b (*.f64 y-scale (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 4 binary64)))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (fma.f64 b (*.f64 y-scale (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 4 binary64))) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 b (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (fma.f64 b (*.f64 y-scale (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (fma.f64 b (*.f64 y-scale (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 a a) (fma.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 5 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 b (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 b (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.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 b (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 b (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 b (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 b (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a a) (fma.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64))) (*.f64 (pow.f64 b #s(literal 5 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 b (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal 2 binary64))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))) (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 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal 2 binary64)))))
#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 (* 1/180 (* a (* angle (PI)))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64)))))
#s(approx (* a (* angle (PI))) (*.f64 a (*.f64 angle (PI.f64))))
#s(approx a a)
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1/4 binary64) (*.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1/4 binary64) (*.f64 b (*.f64 y-scale (*.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 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1/4 binary64) (*.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1/4 binary64) (*.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 5 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 a a) (fma.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 5 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale (*.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 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 5 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (fma.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (fma.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (fma.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 a a) (fma.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 5 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a a) (fma.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64))) (*.f64 (pow.f64 b #s(literal 5 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 x-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 x-scale (*.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 (*.f64 a a) (*.f64 x-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 b (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 x-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 x-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 x-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 x-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 x-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 x-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 x-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 5 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (*.f64 b (*.f64 x-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (fma.f64 b (*.f64 x-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (*.f64 (*.f64 a a) (*.f64 x-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 b (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (fma.f64 b (*.f64 x-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 x-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 x-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (fma.f64 b (*.f64 x-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 a a) (fma.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 x-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 x-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 5 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))))) (/.f64 (*.f64 x-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (*.f64 b (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (fma.f64 b (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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)) (*.f64 b (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (fma.f64 b (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 b (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (fma.f64 b (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a a) (fma.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64))) (*.f64 (pow.f64 b #s(literal 5 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 b (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (*.f64 #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 (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))
#s(approx (pow (* a (cos (* 1/180 (* angle (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 (* 1/180 (* angle (PI))))) (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(literal 2 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (-.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.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(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(literal 2 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(literal 2 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (fma.f64 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(literal 2 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (fma.f64 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.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(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(literal 2 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(literal 2 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 x-scale x-scale) (*.f64 y-scale y-scale)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (pow.f64 b #s(literal 4 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 x-scale x-scale) (*.f64 y-scale y-scale)))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (pow.f64 b #s(literal 4 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 4 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (pow.f64 b #s(literal 4 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (pow.f64 b #s(literal 4 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (pow.f64 b #s(literal 4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.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(literal -3 binary64)))) (*.f64 #s(literal 4 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 b #s(literal 4 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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 (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (*.f64 #s(literal 8 binary64) (/.f64 (pow.f64 (*.f64 a b) #s(literal 4 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))
#s(approx (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 b b)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))
#s(approx (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2)) (*.f64 #s(literal -4 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 b b)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))
#s(approx (* 4 (* (* b a) (* b (neg a)))) (*.f64 #s(literal -4 binary64) (*.f64 (*.f64 a a) (*.f64 b b))))
#s(approx (* (* b a) (* b (neg a))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 a a) (*.f64 b b))))
#s(approx (* b a) (*.f64 a b))
#s(approx (* b (neg a)) (*.f64 #s(literal -1 binary64) (*.f64 a b)))
#s(approx (neg a) (*.f64 #s(literal -1 binary64) a))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (fma.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (fma.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (/.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (fma.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (fma.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.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(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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))))))))) (+.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 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (/ (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (* y-scale y-scale)) (*.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 (/ (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (* y-scale y-scale)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 a (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 a (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.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 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 a (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.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 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 a (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.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 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))))) (pow.f64 a #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal 1/4 binary64) (*.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 a (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.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 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 a (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.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 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 a (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.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 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 a (fma.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (fma.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 b (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 b (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 b (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal 6 binary64)) (*.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))) (*.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))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 a a)) (*.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1/4 binary64) (*.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 a (fma.f64 #s(literal -1/4 binary64) (*.f64 y-scale (*.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 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 a (fma.f64 #s(literal -1/4 binary64) (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 a (fma.f64 #s(literal -1/4 binary64) (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 a (fma.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal 1/4 binary64) (*.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 a (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.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 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 a (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.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 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 a (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.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 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 a (fma.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (fma.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 6 binary64)) (*.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal 1/4 binary64) (*.f64 a (*.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (*.f64 a (fma.f64 #s(literal 1/4 binary64) (*.f64 x-scale (*.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 (*.f64 b b) (*.f64 x-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (*.f64 a (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 x-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 x-scale (*.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 (*.f64 b b) (*.f64 x-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (*.f64 a (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 x-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 6 binary64)) (*.f64 x-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 x-scale (*.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 (*.f64 b b) (*.f64 x-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (*.f64 a (*.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (*.f64 a (fma.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 x-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 x-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 x-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 x-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 6 binary64)) (*.f64 x-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 x-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (fma.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a a) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a a) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 6 binary64)) (*.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a a) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))
#s(approx (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (*.f64 (*.f64 a a) (fma.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 a a)) (*.f64 #s(literal 2 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 (*.f64 a a) a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) a) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) a) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) a) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 6 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 a a) a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 6 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 (pow.f64 b #s(literal 4 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 6 binary64)) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 6 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 a #s(literal 4 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 6 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 b #s(literal 4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 a #s(literal 6 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 4 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 a #s(literal 4 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 (*.f64 x-scale x-scale) (*.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 a a) (*.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 (*.f64 a a) (*.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 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 a a) (*.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 (*.f64 a a) (*.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 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 (*.f64 a a) (*.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 (*.f64 a a) (*.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 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 (/ (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (* y-scale y-scale)) (*.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)) (*.f64 y-scale y-scale))))
#s(approx (/ (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (* y-scale y-scale)) (*.f64 (*.f64 a a) (fma.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 a a) (*.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 y-scale y-scale))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 a (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.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 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.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 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.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 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))))) (pow.f64 a #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1/4 binary64) (*.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.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 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.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 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.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 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 b (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 b (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 b (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal 6 binary64)) (*.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 1/4 binary64) (*.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 a (fma.f64 #s(literal -1/4 binary64) (*.f64 y-scale (*.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 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 a (fma.f64 #s(literal -1/4 binary64) (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 a (fma.f64 #s(literal -1/4 binary64) (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 a (fma.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1/4 binary64) (*.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.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 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.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 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.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 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 6 binary64)) (*.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1/4 binary64) (*.f64 a (*.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal 1/4 binary64) (*.f64 x-scale (*.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 (*.f64 b b) (*.f64 x-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 x-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 x-scale (*.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 (*.f64 b b) (*.f64 x-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 x-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 6 binary64)) (*.f64 x-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 x-scale (*.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 (*.f64 b b) (*.f64 x-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 a (*.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 x-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 x-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 x-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 x-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 6 binary64)) (*.f64 x-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 b b) (*.f64 x-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 a (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a a) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a a) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 6 binary64)) (*.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a a) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 a a) a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) a) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) a) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) a) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 6 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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)))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 (*.f64 a a) a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 a a) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 6 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale 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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/.f64 (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 b b) (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))) (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 b b) (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))) (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 b b) (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 #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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 a (*.f64 y-scale (*.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 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 a a) a) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 (*.f64 a a) a) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 5 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (fma.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (fma.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 a a) a) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (fma.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 b b) (fma.f64 (*.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 (*.f64 a a) a) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 5 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (pow.f64 (*.f64 b (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 a a) a) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 b b) (fma.f64 (*.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 4 binary64)) (*.f64 (*.f64 (*.f64 a a) a) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 6 binary64))) (*.f64 (pow.f64 a #s(literal 5 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))))) (/.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal 2 binary64))))
#s(approx (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2) (pow.f64 (*.f64 b (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal 2 binary64)))
#s(approx (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) (*.f64 b (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx b b)
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1/4 binary64) (*.f64 a (*.f64 y-scale (*.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 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1/4 binary64) (*.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 a a) a) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1/4 binary64) (*.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 5 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 (*.f64 a a) a) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 a a) a) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 b b) (fma.f64 (*.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 (*.f64 a a) a) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 5 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* b (* y-scale 4)) (*.f64 #s(literal 4 binary64) (*.f64 b y-scale)))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 a (*.f64 y-scale (*.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 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 a a) a) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 (*.f64 a a) a) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 5 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (fma.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (fma.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 a a) a) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (fma.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 b b) (fma.f64 (*.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 (*.f64 a a) a) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 5 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 a a) a) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 b b) (fma.f64 (*.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 (*.f64 (*.f64 a a) a) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64))) (*.f64 (pow.f64 a #s(literal 5 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 a (*.f64 x-scale (*.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 (*.f64 b b) (*.f64 x-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 a (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 a (*.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 x-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 a a) a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 x-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 a (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 a (*.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 x-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 a (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 x-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 (*.f64 a a) a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 x-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 5 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (fma.f64 a (*.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (*.f64 (*.f64 b b) (*.f64 x-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 a (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (fma.f64 a (*.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 x-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 a a) a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 x-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 a (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (fma.f64 a (*.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 b b) (fma.f64 (*.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 x-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 (*.f64 a a) a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 x-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 a #s(literal 5 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))))) (/.f64 (*.f64 x-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 a (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (fma.f64 a (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (fma.f64 a (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 a a) a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 a (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (fma.f64 a (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 b b) (fma.f64 (*.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 (*.f64 (*.f64 a a) a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64))) (*.f64 (pow.f64 a #s(literal 5 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 a (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (*.f64 #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 (* 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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))) (*.f64 (/.f64 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 b b) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))))) (*.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))))) (*.f64 (/.f64 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 b b) (-.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 #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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))))) (*.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))))) (*.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))))) (*.f64 (/.f64 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))) (*.f64 (/.f64 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (fma.f64 (/.f64 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))))) (*.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (fma.f64 (/.f64 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))))) (*.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 #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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))))))) (*.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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)))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (pow.f64 a #s(literal 4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (pow.f64 a #s(literal 4 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 4 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 x-scale x-scale) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale x-scale) (*.f64 y-scale y-scale)))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (pow.f64 a #s(literal 4 binary64)) (+.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 x-scale x-scale) (*.f64 y-scale y-scale))) (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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 4 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 a #s(literal 4 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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 x-scale x-scale) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)))) (fma.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)))) (fma.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)))))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)))) (fma.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)))))) (fma.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) (*.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 b (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 b (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 b (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 b (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) #s(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 b (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 b (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 b (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 b (fma.f64 y-scale (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 y-scale (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 y-scale (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 b (fma.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.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 (*.f64 b b) (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.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 (*.f64 b b) (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 6 binary64)) (*.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.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 (*.f64 b b) (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))) (*.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)) (*.f64 b b)) (*.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (fma.f64 #s(literal -1/4 binary64) (*.f64 y-scale (*.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 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (fma.f64 #s(literal -1/4 binary64) (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (fma.f64 #s(literal -1/4 binary64) (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (fma.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 b (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.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 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 b (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.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 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 b (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.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 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 b (fma.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 b (fma.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 6 binary64)) (*.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (*.f64 b (fma.f64 #s(literal 1/4 binary64) (*.f64 x-scale (*.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 (*.f64 a a) (*.f64 x-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (*.f64 b (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 x-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 x-scale (*.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 (*.f64 a a) (*.f64 x-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (*.f64 b (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 x-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 x-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 x-scale (*.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 (*.f64 a a) (*.f64 x-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (*.f64 b (fma.f64 x-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 x-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 x-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 x-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 x-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 x-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 x-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 x-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 x-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (*.f64 b (fma.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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)) (*.f64 (*.f64 b b) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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)) (*.f64 (*.f64 b b) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 6 binary64)) (*.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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)) (*.f64 (*.f64 b b) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (*.f64 (*.f64 b b) (fma.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)) (*.f64 b b)) (*.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 (*.f64 b b) b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) b) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) b) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) b) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) #s(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 6 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 (*.f64 b b) b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) #s(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 6 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 6 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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale x-scale) (*.f64 y-scale y-scale)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 6 binary64)) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 6 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 6 binary64)) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 a #s(literal 4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) #s(literal -3 binary64)))) (fma.f64 #s(literal 4 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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) (*.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)) (*.f64 (*.f64 b b) (*.f64 x-scale x-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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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) (*.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)) (*.f64 (*.f64 b b) (*.f64 x-scale x-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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) #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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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) (*.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)) (*.f64 (*.f64 b b) (*.f64 x-scale x-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 (/ (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (* y-scale y-scale)) (*.f64 (*.f64 b b) (fma.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)) (*.f64 (*.f64 b b) (*.f64 y-scale y-scale))) (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 b (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) #s(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1/4 binary64) (*.f64 b (*.f64 y-scale (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 b (*.f64 y-scale (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 y-scale (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 y-scale (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 y-scale (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 b (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.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 (*.f64 b b) (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.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 (*.f64 b b) (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 6 binary64)) (*.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.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 (*.f64 b b) (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 1/4 binary64) (*.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 b (fma.f64 #s(literal -1/4 binary64) (*.f64 y-scale (*.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 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 b (fma.f64 #s(literal -1/4 binary64) (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 b (fma.f64 #s(literal -1/4 binary64) (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 b (fma.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1/4 binary64) (*.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.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 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.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 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 y-scale (*.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 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 6 binary64)) (*.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1/4 binary64) (*.f64 b (*.f64 x-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal 1/4 binary64) (*.f64 x-scale (*.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 (*.f64 a a) (*.f64 x-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 x-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 x-scale (*.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 (*.f64 a a) (*.f64 x-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 x-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 x-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 x-scale (*.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 (*.f64 a a) (*.f64 x-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 b (*.f64 x-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 x-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 x-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 x-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 x-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 x-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 x-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 x-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 x-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 a a) (*.f64 x-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 b (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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)) (*.f64 (*.f64 b b) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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)) (*.f64 (*.f64 b b) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 6 binary64)) (*.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 5 binary64)))) (fma.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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)) (*.f64 (*.f64 b b) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 (*.f64 b b) b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 b b) b) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 b b) b) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 b b) b) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) #s(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 6 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 (*.f64 b b) b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 b b) b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 b b) b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 b b) b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))))) (*.f64 (*.f64 b b) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal -1/4 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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))))) (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)) (*.f64 (*.f64 x-scale x-scale) (*.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))) #s(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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)))) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 6 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 a a) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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))))) (-.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))) (*.f64 (*.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)) (*.f64 x-scale x-scale)) (/.f64 (pow.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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(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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 b #s(literal 4 binary64)) (*.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (*.f64 (*.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 #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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)))))))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 b (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (/.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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (/.f64 (*.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 y-scale y-scale)) (+.f64 (/.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 (/.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 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (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/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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)))))))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 #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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)))))))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 4 binary64))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (fma.f64 #s(literal 1/360 binary64) (/.f64 (*.f64 angle (*.f64 b (*.f64 y-scale (*.f64 (PI.f64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sqrt.f64 #s(literal 8 binary64))))))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 4 binary64)))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 4 binary64)))) (*.f64 angle (fma.f64 #s(literal 1/360 binary64) (/.f64 (*.f64 b (*.f64 y-scale (*.f64 (PI.f64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sqrt.f64 #s(literal 8 binary64)))))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 angle (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (*.f64 (PI.f64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 (PI.f64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (PI.f64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (*.f64 b (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 4 binary64)))) (*.f64 angle (fma.f64 #s(literal 1/360 binary64) (/.f64 (*.f64 b (*.f64 y-scale (*.f64 (PI.f64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sqrt.f64 #s(literal 8 binary64)))))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 angle (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 angle (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/5832000 binary64) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal -1/17496000 binary64) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 #s(literal 1/90 binary64) (/.f64 (*.f64 (PI.f64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (fma.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (*.f64 (PI.f64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 (PI.f64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (PI.f64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 2 binary64)))))))) (*.f64 b (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (*.f64 (PI.f64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 (PI.f64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (PI.f64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 b (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sqrt.f64 #s(literal 2 binary64))))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 b (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 4 binary64)))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (fma.f64 #s(literal 1/90 binary64) (/.f64 (*.f64 angle (*.f64 b (*.f64 y-scale (*.f64 (PI.f64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sqrt.f64 #s(literal 8 binary64))))))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 b (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 4 binary64))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (fma.f64 angle (fma.f64 #s(literal 1/90 binary64) (/.f64 (*.f64 b (*.f64 y-scale (*.f64 (PI.f64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sqrt.f64 #s(literal 8 binary64)))))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 angle (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (*.f64 (PI.f64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 (PI.f64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (PI.f64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (*.f64 b (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sqrt.f64 #s(literal 2 binary64))))))) (*.f64 b (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 4 binary64))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (fma.f64 angle (fma.f64 #s(literal 1/90 binary64) (/.f64 (*.f64 b (*.f64 y-scale (*.f64 (PI.f64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sqrt.f64 #s(literal 8 binary64)))))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 angle (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 angle (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/5832000 binary64) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal -1/17496000 binary64) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 #s(literal 1/90 binary64) (/.f64 (*.f64 (PI.f64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (fma.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (*.f64 (PI.f64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 (PI.f64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (PI.f64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 2 binary64)))))))) (*.f64 b (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (*.f64 (PI.f64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 (PI.f64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (PI.f64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 b (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sqrt.f64 #s(literal 2 binary64))))))))) (*.f64 b (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 4 binary64))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 b (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 #s(literal 1/90 binary64) (/.f64 (*.f64 angle (*.f64 b (*.f64 (PI.f64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 b (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 angle (fma.f64 #s(literal 1/90 binary64) (/.f64 (*.f64 b (*.f64 (PI.f64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 angle (-.f64 (fma.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (*.f64 (PI.f64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 (PI.f64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (PI.f64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64))) #s(literal 2 binary64))))) (*.f64 b (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sqrt.f64 #s(literal 2 binary64))))))) (*.f64 b (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 angle (fma.f64 #s(literal 1/90 binary64) (/.f64 (*.f64 b (*.f64 (PI.f64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 angle (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 angle (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/5832000 binary64) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal -1/17496000 binary64) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 #s(literal 1/90 binary64) (/.f64 (*.f64 (PI.f64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (fma.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (*.f64 (PI.f64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 (PI.f64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (PI.f64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 2 binary64)))))) (*.f64 b (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (*.f64 (PI.f64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 (PI.f64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (PI.f64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64))) #s(literal 2 binary64)))) (*.f64 b (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sqrt.f64 #s(literal 2 binary64))))))))) (*.f64 b (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))) (fma.f64 #s(literal 1/45 binary64) (*.f64 angle (*.f64 (*.f64 b b) (*.f64 (PI.f64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)) (*.f64 angle (fma.f64 #s(literal 1/45 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 angle (fma.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (*.f64 (PI.f64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 (PI.f64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)) (*.f64 angle (fma.f64 #s(literal 1/45 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 angle (fma.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (fma.f64 #s(literal 2 binary64) (*.f64 angle (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/5832000 binary64) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal -1/17496000 binary64) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (*.f64 (PI.f64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 (PI.f64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (*.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (*.f64 (PI.f64) (PI.f64))))))
#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) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64)))))))
#s(approx (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.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) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.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) (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64))) (*.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 (* angle (PI)) (*.f64 angle (PI.f64)))
#s(approx angle angle)
#s(approx (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64))))
#s(approx (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)) (fma.f64 #s(literal 1/45 binary64) (*.f64 angle (*.f64 (*.f64 b b) (*.f64 (PI.f64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)))))
#s(approx (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)) (*.f64 angle (fma.f64 #s(literal 1/45 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 2 binary64) (*.f64 angle (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (*.f64 (PI.f64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 (PI.f64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)) (*.f64 angle (fma.f64 #s(literal 1/45 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 angle (fma.f64 #s(literal 2 binary64) (*.f64 angle (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/5832000 binary64) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal -1/17496000 binary64) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (*.f64 (PI.f64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 (PI.f64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)))
#s(approx (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2) (fma.f64 #s(literal 1/90 binary64) (*.f64 angle (*.f64 (*.f64 b b) (*.f64 (PI.f64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64))))
#s(approx (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2) (fma.f64 angle (fma.f64 #s(literal 1/90 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 angle (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (*.f64 (PI.f64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 (PI.f64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64))))))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64))))
#s(approx (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2) (fma.f64 angle (fma.f64 #s(literal 1/90 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 angle (fma.f64 angle (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/5832000 binary64) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal -1/17496000 binary64) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (*.f64 (PI.f64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 (PI.f64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)))))))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64))))
#s(approx (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) (*.f64 b (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (*.f64 b (*.f64 (PI.f64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 b (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) (fma.f64 angle (fma.f64 #s(literal -1/64800 binary64) (*.f64 angle (*.f64 b (*.f64 (*.f64 (PI.f64) (PI.f64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 #s(literal 1/180 binary64) (*.f64 b (*.f64 (PI.f64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 b (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) (fma.f64 angle (fma.f64 #s(literal 1/180 binary64) (*.f64 b (*.f64 (PI.f64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 angle (fma.f64 #s(literal -1/64800 binary64) (*.f64 b (*.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 b (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (*.f64 b (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (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 (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64)))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64))) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (-.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale #s(literal 4 binary64))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 b (*.f64 y-scale #s(literal 4 binary64)))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale #s(literal 4 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale #s(literal 4 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (-.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64)))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64)))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 2 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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 2 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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal 2 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 #s(literal 2 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 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))) (-.f64 (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 2 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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 b (*.f64 y-scale #s(literal 4 binary64))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64)))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 b (*.f64 y-scale #s(literal 4 binary64)))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (fma.f64 b (*.f64 y-scale #s(literal 4 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 2 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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (fma.f64 b (*.f64 y-scale #s(literal 4 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 2 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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal 2 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 #s(literal 2 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 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))) (-.f64 (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 2 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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64)))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 b (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 2 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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 b (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.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 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 #s(literal 2 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 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))) (-.f64 (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 2 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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 2 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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (*.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (*.f64 a (*.f64 (*.f64 angle angle) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (*.f64 a (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/22674816000000 binary64) (*.f64 a (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (*.f64 a (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/30855889612800000000 binary64) (*.f64 a (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal 1/22674816000000 binary64) (*.f64 a (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (sqrt.f64 #s(literal 2 binary64))))))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (*.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 #s(literal 1/22674816000000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/30855889612800000000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/22674816000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (sqrt.f64 #s(literal 2 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) (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64))) (*.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) (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (*.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) (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (*.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 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal 1/4 binary64) (*.f64 a (*.f64 x-scale #s(literal 4 binary64)))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64)))))))) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 a (*.f64 x-scale #s(literal 4 binary64))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 a (*.f64 x-scale #s(literal 4 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))))))) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 2 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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 a a) #s(literal 2 binary64)))))))) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 a (*.f64 x-scale #s(literal 4 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))))))) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 2 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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 a a) #s(literal 2 binary64))))))) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal 2 binary64) (*.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 #s(literal 2 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 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))))) (-.f64 (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 2 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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 a a) #s(literal 2 binary64)))))) (*.f64 (*.f64 a a) #s(literal 2 binary64)))))))) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (*.f64 a (*.f64 x-scale #s(literal 4 binary64))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64)))))))) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a (*.f64 x-scale #s(literal 4 binary64)))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (fma.f64 a (*.f64 x-scale #s(literal 4 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))))))) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 2 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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 a a) #s(literal 2 binary64)))))))) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (fma.f64 a (*.f64 x-scale #s(literal 4 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))))))) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 2 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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 a a) #s(literal 2 binary64))))))) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal 2 binary64) (*.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 #s(literal 2 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 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))))) (-.f64 (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 2 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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 a a) #s(literal 2 binary64)))))) (*.f64 (*.f64 a a) #s(literal 2 binary64)))))))) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (sqrt.f64 #s(literal 2 binary64))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64)))))) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (fma.f64 a (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 2 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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 a a) #s(literal 2 binary64)))))) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))))) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (fma.f64 a (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))))) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))) (*.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 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 #s(literal 2 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 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))))) (-.f64 (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 2 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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 a a) #s(literal 2 binary64)))))) (*.f64 (*.f64 a a) #s(literal 2 binary64)))))) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 2 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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 a a) #s(literal 2 binary64))))) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (*.f64 #s(literal 2 binary64) (*.f64 a a)))
#s(approx (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (fma.f64 #s(literal 2 binary64) (*.f64 a a) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))))))))
#s(approx (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (fma.f64 #s(literal 2 binary64) (*.f64 a a) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (fma.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 2 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)))))))))))))
#s(approx (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (fma.f64 #s(literal 2 binary64) (*.f64 a a) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (fma.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (fma.f64 #s(literal 2 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 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (*.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 #s(literal 2 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 (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (*.f64 a a))
#s(approx (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (*.f64 (PI.f64) (PI.f64)))) (*.f64 a a)))
#s(approx (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.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 (* 1/180 (* angle (PI))))) 2) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.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 (* 1/180 (* angle (PI))))) a)
#s(approx (* a (cos (* 1/180 (* angle (PI))))) (+.f64 a (*.f64 #s(literal -1/64800 binary64) (*.f64 a (*.f64 (*.f64 angle angle) (*.f64 (PI.f64) (PI.f64)))))))
#s(approx (* a (cos (* 1/180 (* angle (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 (* 1/180 (* angle (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 (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) (*.f64 (*.f64 angle angle) (*.f64 (PI.f64) (PI.f64))))))
#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 (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))))))
#s(approx (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64)))))))
#s(approx (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 2 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 (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/1574640000 binary64) (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (*.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 #s(literal 2 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 (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (*.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))))))
#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) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64)))))))
#s(approx (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64))) (*.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 4 binary64))) (*.f64 (*.f64 x-scale x-scale) y-scale))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 angle angle) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 y-scale (sqrt.f64 #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 4 binary64))) (*.f64 (*.f64 x-scale x-scale) y-scale))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 angle angle) (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 #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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)))))))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))))) (*.f64 y-scale (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 y-scale (sqrt.f64 #s(literal 2 binary64))))))) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 4 binary64))) (*.f64 (*.f64 x-scale x-scale) y-scale))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 angle angle) (-.f64 (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (/.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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (/.f64 (*.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 y-scale y-scale)) (+.f64 (/.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 (/.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 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (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/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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)))))))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))))) (*.f64 y-scale (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 #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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)))))))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))))) (*.f64 y-scale (sqrt.f64 #s(literal 2 binary64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 y-scale (sqrt.f64 #s(literal 2 binary64))))))) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 4 binary64))) (*.f64 (*.f64 x-scale x-scale) y-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 4 binary64))) (*.f64 (*.f64 x-scale x-scale) y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 y-scale (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 4 binary64))) (*.f64 (*.f64 x-scale x-scale) y-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 y-scale (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 #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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)))))))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))))) (*.f64 y-scale (sqrt.f64 #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 4 binary64))) (*.f64 (*.f64 x-scale x-scale) y-scale))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 y-scale (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 #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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)))))))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64)))))))) (*.f64 y-scale (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (*.f64 b (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (/.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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (/.f64 (*.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 y-scale y-scale)) (+.f64 (/.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 (/.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 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (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/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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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/4 binary64) (/.f64 (pow.f64 (*.f64 x-scale (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)))))))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))) (*.f64 (*.f64 b b) #s(literal 2 binary64))))))))) (*.f64 y-scale (sqrt.f64 #s(literal 2 binary64)))))))) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 4 binary64))) (*.f64 (*.f64 x-scale x-scale) y-scale))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 16 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 b #s(literal 6 binary64))) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (*.f64 y-scale y-scale)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 16 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 b #s(literal 6 binary64))) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (*.f64 y-scale y-scale))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 16 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 b #s(literal 6 binary64))) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (*.f64 y-scale y-scale))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 b #s(literal 4 binary64)) (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/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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 x-scale x-scale) (*.f64 y-scale y-scale))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 16 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 b #s(literal 6 binary64))) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (*.f64 y-scale y-scale))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 b #s(literal 4 binary64)) (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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (/.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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (/.f64 (*.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 y-scale y-scale)) (+.f64 (/.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 (/.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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (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/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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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 x-scale x-scale) (*.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 2 binary64) (/.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) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 b b) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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))))))))))))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 b b) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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/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/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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.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) (fma.f64 #s(literal 1/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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 b b) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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/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/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 (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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)))) (fma.f64 (*.f64 angle angle) (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 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (/.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)))) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (-.f64 (*.f64 b b) (*.f64 a a)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.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 (/.f64 (*.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 y-scale y-scale)) (+.f64 (/.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 (/.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 (*.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) (fma.f64 #s(literal 1/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 (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (* y-scale y-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))
#s(approx (/ (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (* y-scale y-scale)) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)))))))
#s(approx (/ (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (* y-scale y-scale)) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/1574640000 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 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))))))))))
#s(approx (/ (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (* y-scale y-scale)) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 y-scale y-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/1574640000 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 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 angle angle) (fma.f64 #s(literal 2 binary64) (/.f64 (*.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 y-scale y-scale)) (*.f64 #s(literal 2 binary64) (/.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)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a (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 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal 2 binary64))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (sqrt.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 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal 2 binary64))))))
#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 (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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)))))))
#s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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))))))))
#s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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)))))))
#s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (sqrt.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))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))
#s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))
#s(approx (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a (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 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a (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 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (+.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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a (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 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 x-scale x-scale) (*.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 a (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 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.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 (/ (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (* y-scale y-scale)) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 y-scale y-scale)))
#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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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)))))) (sqrt.f64 (/.f64 #s(literal 1 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 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))))) (sqrt.f64 (/.f64 #s(literal 1 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 #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))) #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)))))))))) (sqrt.f64 (/.f64 #s(literal 1 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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))))) (sqrt.f64 (/.f64 #s(literal 1 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 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))) #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))))))))) (sqrt.f64 (/.f64 #s(literal 1 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 #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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)))) (-.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 (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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 #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 #s(literal 1/4 binary64) (/.f64 (pow.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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))) #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)))))))) (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)))))))))) (sqrt.f64 (/.f64 #s(literal 1 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))))))))))))))
#s(approx (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (sqrt.f64 #s(literal 8 binary64))) (sqrt.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)))))))
#s(approx (* x-scale (sqrt 8)) (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))))
#s(approx x-scale x-scale)
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 x-scale x-scale) y-scale)) (sqrt.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))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))) #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))))))))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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)))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 x-scale x-scale) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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)))) (-.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 (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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 #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 #s(literal 1/4 binary64) (/.f64 (pow.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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))) #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)))))))) (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))))))))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))) #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)))))))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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)))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 x-scale x-scale) y-scale)) (sqrt.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)))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.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 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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)))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))) #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))))))))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.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 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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)))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))) #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)))))))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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)))) (-.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 (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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 #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 #s(literal 1/4 binary64) (/.f64 (pow.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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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))) #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)))))))) (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))))))))))) y-scale) (sqrt.f64 (/.f64 #s(literal 1 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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 (pow.f64 x-scale #s(literal 4 binary64)) (*.f64 y-scale y-scale)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 y-scale y-scale)))) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 y-scale y-scale)) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.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 (*.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 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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 y-scale y-scale)))))) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 y-scale y-scale)) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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 y-scale y-scale)) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.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))))))))) (*.f64 (*.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 3 binary64)))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.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 (*.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))))))))))) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (pow (* x-scale y-scale) 2) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))
#s(approx (* x-scale y-scale) (*.f64 x-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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (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 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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)))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (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 (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)))) (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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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)))
#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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (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 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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 (*.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 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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)))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 x-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 x-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 x-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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)))) (-.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)))) (*.f64 #s(literal 1/2 binary64) (/.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 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 2 binary64) (/.f64 (pow.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 #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))))))))) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))) x-scale))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 (pow.f64 x-scale #s(literal 4 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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)))))))) x-scale))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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)))) (-.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)))) (*.f64 #s(literal 1/2 binary64) (/.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 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 2 binary64) (/.f64 (pow.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 #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 (pow.f64 x-scale #s(literal 6 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 (pow.f64 x-scale #s(literal 4 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))) x-scale))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))) x-scale))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 (pow.f64 x-scale #s(literal 4 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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)))))))) x-scale))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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)))) (-.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)))) (*.f64 #s(literal 1/2 binary64) (/.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 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 2 binary64) (/.f64 (pow.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 #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 (pow.f64 x-scale #s(literal 6 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 (pow.f64 x-scale #s(literal 4 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))) x-scale))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 y-scale y-scale)))) (*.f64 x-scale x-scale)))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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))))))) (*.f64 (pow.f64 x-scale #s(literal 4 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 y-scale y-scale))))) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 y-scale y-scale))))) (*.f64 x-scale x-scale)))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #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 6 binary64)) (*.f64 (*.f64 y-scale y-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 3 binary64))))) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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))))))) (*.f64 (pow.f64 x-scale #s(literal 4 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 y-scale y-scale))))) (fma.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 y-scale y-scale)))))) (*.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (pow.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 #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 (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 2 binary64) (/.f64 (pow.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 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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)))) (fma.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)) (*.f64 y-scale y-scale)) (fma.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)))) (-.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 6 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)))) (fma.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)) (*.f64 y-scale y-scale)) (fma.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 x-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 x-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 x-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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)))) (-.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)))) (*.f64 #s(literal 1/2 binary64) (/.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 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 2 binary64) (/.f64 (pow.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 #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))))))))) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (* -1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))) x-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 (pow.f64 x-scale #s(literal 4 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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)))))))) x-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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)))) (-.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)))) (*.f64 #s(literal 1/2 binary64) (/.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 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 2 binary64) (/.f64 (pow.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 #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 (pow.f64 x-scale #s(literal 6 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 (pow.f64 x-scale #s(literal 4 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))) x-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))) x-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 (pow.f64 x-scale #s(literal 4 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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)))))))) x-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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)))) (-.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)))) (*.f64 #s(literal 1/2 binary64) (/.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 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 2 binary64) (/.f64 (pow.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 #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 (pow.f64 x-scale #s(literal 6 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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/4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (fma.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)) (*.f64 y-scale y-scale)) (*.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 (pow.f64 x-scale #s(literal 4 binary64)) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))) x-scale)))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 x-scale (*.f64 (*.f64 y-scale y-scale) (*.f64 (sqrt.f64 #s(literal 8 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)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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/8 binary64) (*.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 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))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 x-scale (*.f64 (*.f64 y-scale y-scale) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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))) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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/8 binary64) (*.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 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))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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/8 binary64) (*.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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))) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 x-scale (*.f64 (*.f64 y-scale y-scale) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (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 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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))) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.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 (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))))))
#s(approx (* y-scale (sqrt 8)) (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))
#s(approx y-scale y-scale)
#s(approx (* y-scale 4) (*.f64 #s(literal 4 binary64) y-scale))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 y-scale y-scale) (*.f64 (sqrt.f64 #s(literal 8 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))))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (*.f64 y-scale y-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 y-scale y-scale) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 y-scale y-scale) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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))) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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)))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (*.f64 y-scale y-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 y-scale y-scale) (-.f64 (*.f64 (*.f64 y-scale y-scale) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 y-scale y-scale) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (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 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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))) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.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 (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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))) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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)))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (*.f64 y-scale y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 y-scale y-scale) (*.f64 (sqrt.f64 #s(literal 8 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))))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (*.f64 y-scale y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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)))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 y-scale y-scale) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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))) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))) (*.f64 y-scale y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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)))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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))) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (*.f64 y-scale y-scale) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (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 (*.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 #s(literal 1/4 binary64) (/.f64 (pow.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))) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.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 (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))) x-scale) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))))) (*.f64 y-scale y-scale)))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (*.f64 (*.f64 x-scale x-scale) (pow.f64 y-scale #s(literal 4 binary64))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.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 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.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 (*.f64 x-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 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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))))) (*.f64 x-scale x-scale)))))) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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))))) (*.f64 x-scale x-scale)) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.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 (*.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 3 binary64)))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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))))))) (*.f64 (*.f64 x-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))))))))))) (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (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 (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (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 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (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 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)))) (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 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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (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 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)))) (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 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 (* y-scale y-scale) (*.f64 y-scale y-scale))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 y-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)) (/.f64 #s(literal 1 binary64) (sqrt.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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 y-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 y-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #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 #s(literal 1/2 binary64) (/.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 #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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))) (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))))))))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.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))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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))))))) y-scale))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))))) (*.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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)))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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)))))))) y-scale))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #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 #s(literal 1/2 binary64) (/.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 #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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))) (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 x-scale (pow.f64 y-scale #s(literal 6 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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)))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))))) (*.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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))))))))) y-scale))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.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)))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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))))))) y-scale))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))))) (*.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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)))))))) y-scale))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #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 #s(literal 1/2 binary64) (/.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 #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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))) (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 x-scale (pow.f64 y-scale #s(literal 6 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))))) (*.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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))))))))) y-scale))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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)))))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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)))))) (*.f64 x-scale x-scale)))) (*.f64 y-scale y-scale)))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.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 (*.f64 x-scale x-scale) (*.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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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)))))) (*.f64 x-scale x-scale))))) (*.f64 y-scale y-scale)))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #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 (*.f64 x-scale x-scale) (*.f64 (pow.f64 y-scale #s(literal 6 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 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.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 (*.f64 x-scale x-scale) (*.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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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)))))) (*.f64 x-scale x-scale)))))) (*.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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (pow.f64 (*.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 (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 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)) (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)) (*.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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)))) (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)) (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)) (*.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 (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)))) (-.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 6 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)))) (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)) (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)) (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)) (/.f64 #s(literal 1 binary64) (sqrt.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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #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 #s(literal 1/2 binary64) (/.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 #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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))) (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))))))))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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)))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.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)))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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))))))) y-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))))) (*.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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)))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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)))))))) y-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #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 #s(literal 1/2 binary64) (/.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 #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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))) (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 x-scale (pow.f64 y-scale #s(literal 6 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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)))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))))) (*.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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))))))))) y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.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))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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))))))) y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))))) (*.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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)))))))) y-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale (*.f64 y-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #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 #s(literal 1/2 binary64) (/.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 #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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))) (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 x-scale (pow.f64 y-scale #s(literal 6 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (*.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1/4 binary64) (/.f64 (pow.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 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)))) #s(literal 2 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)))))))))) (*.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.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 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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))))))))) y-scale)))

eval1.2s (5.5%)

Memory
33.5MiB live, 1 974.2MiB allocated; 193ms collecting garbage
Compiler

Compiled 338 111 to 6 295 computations (98.1% saved)

prune827.0ms (3.7%)

Memory
-15.8MiB live, 1 370.1MiB allocated; 50ms collecting garbage
Pruning

54 alts after pruning (51 fresh and 3 done)

PrunedKeptTotal
New77720797
Fresh433174
Picked325
Done011
Total82354877
Accuracy
76.6%
Counts
877 → 54
Alt Table
Click to see full alt table
StatusAccuracyProgram
2.2%
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (exp.f64 (*.f64 (log.f64 (*.f64 x-scale y-scale)) #s(literal 2 binary64)))))
2.9%
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (- (/ (* b b) (* x-scale x-scale)) (/ (* a a) (* y-scale y-scale))) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)))))))) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
1.2%
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.f64 #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 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))))))) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
2.5%
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) #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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 y-scale y-scale)))))) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (exp.f64 (*.f64 (log.f64 (*.f64 x-scale y-scale)) #s(literal 2 binary64)))))
2.5%
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) #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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (exp.f64 (*.f64 (log.f64 y-scale) #s(literal 2 binary64)))))))) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
0.2%
(/.f64 #s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
4.6%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 x-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))))
42.8%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) #s(approx (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (*.f64 b b))))))))
26.7%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.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 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))
33.8%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 #s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal 2 binary64))))))))
33.8%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 #s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) (*.f64 #s(literal 2 binary64) (*.f64 b b)))))))
4.4%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) #s(literal 3 binary64))) (fma.f64 (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))))
36.3%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))
✓10.7%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
12.9%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (*.f64 #s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64))) (*.f64 #s(literal 1/180 binary64) (PI.f64))))) (sqrt.f64 #s(literal 2 binary64))))))))
12.7%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (*.f64 #s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
12.9%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a #s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (*.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))))))))))
7.5%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
9.7%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
10.6%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(approx (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 b b) (*.f64 a (*.f64 angle (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))))))))))
12.6%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(approx (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64)))))))))))
20.6%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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))))))))
19.9%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 #s(approx (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))
31.0%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 #s(approx (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (*.f64 #s(literal 2 binary64) (*.f64 a a)))))))
12.4%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (*.f64 b (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
33.3%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))))))
10.4%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 b (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
8.1%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 a (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
21.3%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 b (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))))))
20.3%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 a (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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))))))))
32.3%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) #s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 b (*.f64 y-scale (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 4 binary64)))))))
32.1%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) #s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))
10.7%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) #s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))
12.4%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) #s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (*.f64 b (*.f64 x-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))
28.1%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) #s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (*.f64 a (*.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))
33.5%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) #s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (*.f64 a (*.f64 x-scale #s(literal 4 binary64))))))
1.4%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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)) (exp.f64 (*.f64 (log.f64 x-scale) #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))))))))
1.6%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 #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 b) (*.f64 x-scale x-scale))))))))
8.3%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)))))
3.0%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (sqrt.f64 #s(literal 2 binary64))) x-scale)))))
14.7%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 #s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64))) (*.f64 #s(literal 1/180 binary64) (PI.f64))))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)))))
11.7%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 #s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)))))
11.7%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 #s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))))) x-scale)))))
11.7%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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(approx (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))))) x-scale)))))
11.3%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (/.f64 (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale))))))
38.8%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) x-scale) (sqrt.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)))))))))))
11.7%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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(approx (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale) (*.f64 #s(literal 1/180 binary64) (/.f64 (*.f64 a (*.f64 angle (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))) x-scale)))))))
7.5%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))
✓3.0%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale #s(literal 4 binary64))))))
9.7%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))
7.2%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1/4 binary64) (*.f64 b (*.f64 y-scale (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 4 binary64)))))))
10.4%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1/4 binary64) (*.f64 b (*.f64 x-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))
8.1%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1/4 binary64) (*.f64 a (*.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))
✓36.6%
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(approx (* 1/4 (* b (* y-scale 4))) (*.f64 b y-scale)))
Compiler

Compiled 44 908 to 5 931 computations (86.8% saved)

regimes376.0ms (1.7%)

Memory
8.1MiB live, 426.5MiB allocated; 93ms collecting garbage
Counts
123 → 2
Calls
Call 1
Inputs
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(approx (* 1/4 (* b (* y-scale 4))) (*.f64 b y-scale)))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale #s(literal 4 binary64))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) #s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (*.f64 a (*.f64 x-scale #s(literal 4 binary64))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 #s(approx (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (*.f64 #s(literal 2 binary64) (*.f64 a a)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 #s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) (*.f64 #s(literal 2 binary64) (*.f64 b b)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (sqrt.f64 #s(literal 2 binary64))) x-scale)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(approx (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (*.f64 #s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 #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 b) (*.f64 x-scale x-scale))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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(approx (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale) (*.f64 #s(literal 1/180 binary64) (/.f64 (*.f64 a (*.f64 angle (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))) x-scale)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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(approx (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))))) x-scale)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 #s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))))) x-scale)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 #s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(approx (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 b b) (*.f64 a (*.f64 angle (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (*.f64 #s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64))) (*.f64 #s(literal 1/180 binary64) (PI.f64))))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a #s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (*.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 #s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64))) (*.f64 #s(literal 1/180 binary64) (PI.f64))))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) #s(approx (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (*.f64 b b))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1/4 binary64) (*.f64 b (*.f64 x-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) #s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (*.f64 b (*.f64 x-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) #s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1/4 binary64) (*.f64 a (*.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) #s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (*.f64 a (*.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) #s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 #s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) (fma.f64 #s(literal 2 binary64) (*.f64 b b) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 #s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (*.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64)))))))) x-scale)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1/4 binary64) (*.f64 b (*.f64 y-scale (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 4 binary64)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) #s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 b (*.f64 y-scale (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 4 binary64)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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(approx (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (*.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (*.f64 a (*.f64 (*.f64 angle angle) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64)))))))) x-scale)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (*.f64 b (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) (fma.f64 #s(literal 4 binary64) (*.f64 b y-scale) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (*.f64 b (*.f64 y-scale (*.f64 (PI.f64) (PI.f64)))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (*.f64 (PI.f64) (PI.f64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 b (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 a (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64)))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)))))
(/.f64 (neg.f64 #s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 4 binary64))) (*.f64 (*.f64 x-scale x-scale) y-scale)))) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (/.f64 (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (/.f64 (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 #s(approx (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (*.f64 #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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 #s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal 2 binary64))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b #s(approx (cos (* 1/180 (* angle (PI)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/64800 binary64) (*.f64 (*.f64 angle angle) (*.f64 (PI.f64) (PI.f64))))))) #s(literal 2 binary64))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 b (*.f64 y-scale #s(literal 4 binary64)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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(approx (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (/.f64 (*.f64 a (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64)))) x-scale) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (/.f64 (*.f64 a (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (sqrt.f64 #s(literal 2 binary64)))) x-scale) (*.f64 #s(literal 1/22674816000000 binary64) (/.f64 (*.f64 a (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (sqrt.f64 #s(literal 2 binary64))))) x-scale)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.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) (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (*.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)))))))))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.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 (neg.f64 (sqrt.f64 #s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 16 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 b #s(literal 6 binary64))) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (*.f64 y-scale y-scale))))))) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (exp.f64 (*.f64 (log.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.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))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) #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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))))) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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 #s(approx (cos (* 1/180 (* angle (PI)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/64800 binary64) (*.f64 (*.f64 angle angle) (*.f64 (PI.f64) (PI.f64))))))) #s(literal 2 binary64))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 #s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/30855889612800000000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/22674816000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (sqrt.f64 #s(literal 2 binary64)))))))))))) x-scale)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) (/.f64 #s(approx (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64)))) (*.f64 b b))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (sqrt.f64 #s(literal 8 binary64))) (sqrt.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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.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 #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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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) (exp.f64 (*.f64 (log.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.f64 #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 (/.f64 a y-scale) (/.f64 a y-scale) (/.f64 (*.f64 b b) (*.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 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (pow.f64 (*.f64 b #s(approx (cos (* 1/180 (* angle (PI)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/64800 binary64) (*.f64 (*.f64 angle angle) (*.f64 (PI.f64) (PI.f64))))))) #s(literal 2 binary64)) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) x-scale) (sqrt.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)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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)) (exp.f64 (*.f64 (log.f64 x-scale) #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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (exp.f64 (*.f64 (log.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) #s(literal 2 binary64))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 a a) #s(approx (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a a) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 a (*.f64 x-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 b (*.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 b (+.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) x-scale) (/.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) (*.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 b (+.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) x-scale) (/.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) (*.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))))
(/.f64 (neg.f64 #s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 (*.f64 x-scale x-scale) y-scale)) (sqrt.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 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
(/.f64 #s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 x-scale y-scale)) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) #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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 y-scale y-scale)))))) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) #s(approx (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)))))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (*.f64 (PI.f64) (PI.f64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/2099520000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 #s(literal -1/2099520000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))))))))))
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) #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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 y-scale y-scale)))))) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (exp.f64 (*.f64 (log.f64 (*.f64 x-scale y-scale)) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) #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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (exp.f64 (*.f64 (log.f64 y-scale) #s(literal 2 binary64)))))))) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.f64 #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 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))))))) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(approx (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (/.f64 (fma.f64 #s(literal 180 binary64) (/.f64 (*.f64 b b) (*.f64 a (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/180 binary64) (/.f64 (*.f64 (*.f64 b b) (PI.f64)) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/34992000 binary64) (*.f64 a (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 180 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 a (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))))) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/180 binary64) (/.f64 (*.f64 (*.f64 b b) (PI.f64)) (*.f64 a (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 (*.f64 b b) (PI.f64)) (*.f64 a (sqrt.f64 #s(literal 2 binary64))))))) (*.f64 #s(literal 1/699840000 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64))) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))))))))) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 (*.f64 b b) (PI.f64)) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))))))) angle))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 a a) a) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (*.f64 b (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 x-scale (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))))) (+.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) x-scale) (/.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) (*.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 (exp.f64 (*.f64 (log.f64 a) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 (*.f64 (*.f64 b b) b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (- (/ (* b b) (* x-scale x-scale)) (/ (* a a) (* y-scale y-scale))) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)))))))) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (exp.f64 (*.f64 (log.f64 (*.f64 x-scale y-scale)) #s(literal 2 binary64)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 a (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 b (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 a (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 b (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))))))) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (hypot.f64 (-.f64 #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))) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))) #s(literal 3 binary64))) (fma.f64 (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.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 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))))))
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))))
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
(/.f64 (neg.f64 (sqrt.f64 #s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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 x-scale x-scale) (*.f64 y-scale y-scale))) (*.f64 #s(literal 8 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 (pow.f64 b #s(literal 4 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)))))) (*.f64 x-scale x-scale)))) (*.f64 y-scale y-scale))))) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 x-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 y-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-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)) (/.f64 #s(literal 1 binary64) (sqrt.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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 x-scale (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 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))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.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 1 binary64) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.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)) (*.f64 y-scale y-scale)) (*.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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 a (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.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 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 b (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 a (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.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 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (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 (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1 binary64) (*.f64 b (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (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))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))) (*.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))))) (+.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))))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.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/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (+.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)) (*.f64 (*.f64 x-scale x-scale) (*.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)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))))))))
Outputs
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) #s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (*.f64 a (*.f64 x-scale #s(literal 4 binary64))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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))))))))
Calls

8 calls:

54.0ms
y-scale
51.0ms
(/.f64 angle #s(literal 180 binary64))
47.0ms
b
40.0ms
(*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))
33.0ms
x-scale
Results
AccuracySegmentsBranch
51.1%4(/.f64 angle #s(literal 180 binary64))
51.1%4(*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))
42.9%1(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
48.9%2a
52.1%2b
51.1%4angle
50.7%2x-scale
53.9%2y-scale
Compiler

Compiled 196 to 97 computations (50.5% saved)

regimes51.0ms (0.2%)

Memory
35.2MiB live, 79.0MiB allocated; 16ms collecting garbage
Counts
65 → 2
Calls
Call 1
Inputs
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(approx (* 1/4 (* b (* y-scale 4))) (*.f64 b y-scale)))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale #s(literal 4 binary64))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) #s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (*.f64 a (*.f64 x-scale #s(literal 4 binary64))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 #s(approx (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (*.f64 #s(literal 2 binary64) (*.f64 a a)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 #s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) (*.f64 #s(literal 2 binary64) (*.f64 b b)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (sqrt.f64 #s(literal 2 binary64))) x-scale)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(approx (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (*.f64 #s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 #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 b) (*.f64 x-scale x-scale))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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(approx (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale) (*.f64 #s(literal 1/180 binary64) (/.f64 (*.f64 a (*.f64 angle (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))) x-scale)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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(approx (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))))) x-scale)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 #s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))))) x-scale)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 #s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(approx (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 b b) (*.f64 a (*.f64 angle (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (*.f64 #s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64))) (*.f64 #s(literal 1/180 binary64) (PI.f64))))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a #s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (*.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 #s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64))) (*.f64 #s(literal 1/180 binary64) (PI.f64))))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) #s(approx (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (*.f64 b b))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1/4 binary64) (*.f64 b (*.f64 x-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) #s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (*.f64 b (*.f64 x-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) #s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1/4 binary64) (*.f64 a (*.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) #s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (*.f64 a (*.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) #s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 #s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) (fma.f64 #s(literal 2 binary64) (*.f64 b b) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 #s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (*.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64)))))))) x-scale)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1/4 binary64) (*.f64 b (*.f64 y-scale (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 4 binary64)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) #s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 b (*.f64 y-scale (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 4 binary64)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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(approx (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (*.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (*.f64 a (*.f64 (*.f64 angle angle) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64)))))))) x-scale)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (*.f64 b (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) (fma.f64 #s(literal 4 binary64) (*.f64 b y-scale) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (*.f64 b (*.f64 y-scale (*.f64 (PI.f64) (PI.f64)))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (*.f64 (PI.f64) (PI.f64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 b (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 a (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64)))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)))))
(/.f64 (neg.f64 #s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 4 binary64))) (*.f64 (*.f64 x-scale x-scale) y-scale)))) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (/.f64 (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (/.f64 (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 #s(approx (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (*.f64 #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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 #s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal 2 binary64))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b #s(approx (cos (* 1/180 (* angle (PI)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/64800 binary64) (*.f64 (*.f64 angle angle) (*.f64 (PI.f64) (PI.f64))))))) #s(literal 2 binary64))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 b (*.f64 y-scale #s(literal 4 binary64)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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(approx (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (/.f64 (*.f64 a (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64)))) x-scale) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (/.f64 (*.f64 a (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (sqrt.f64 #s(literal 2 binary64)))) x-scale) (*.f64 #s(literal 1/22674816000000 binary64) (/.f64 (*.f64 a (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (sqrt.f64 #s(literal 2 binary64))))) x-scale)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.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) (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (*.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)))))))))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.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 (neg.f64 (sqrt.f64 #s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 16 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 b #s(literal 6 binary64))) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (*.f64 y-scale y-scale))))))) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (exp.f64 (*.f64 (log.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.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))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) #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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))))) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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 #s(approx (cos (* 1/180 (* angle (PI)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/64800 binary64) (*.f64 (*.f64 angle angle) (*.f64 (PI.f64) (PI.f64))))))) #s(literal 2 binary64))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 #s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/30855889612800000000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/22674816000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (sqrt.f64 #s(literal 2 binary64)))))))))))) x-scale)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))) (/.f64 #s(approx (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64)))) (*.f64 b b))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 (sqrt.f64 #s(literal 8 binary64))) (sqrt.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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (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 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))
Outputs
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) #s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (*.f64 a (*.f64 x-scale #s(literal 4 binary64))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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 #s(approx (cos (* 1/180 (* angle (PI)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/64800 binary64) (*.f64 (*.f64 angle angle) (*.f64 (PI.f64) (PI.f64))))))) #s(literal 2 binary64))))))))
Calls

1 calls:

40.0ms
y-scale
Results
AccuracySegmentsBranch
53.3%2y-scale
Compiler

Compiled 1 to 5 computations (-400% saved)

regimes52.0ms (0.2%)

Memory
1.5MiB live, 89.7MiB allocated; 13ms collecting garbage
Counts
60 → 2
Calls
Call 1
Inputs
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(approx (* 1/4 (* b (* y-scale 4))) (*.f64 b y-scale)))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale #s(literal 4 binary64))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) #s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (*.f64 a (*.f64 x-scale #s(literal 4 binary64))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 #s(approx (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (*.f64 #s(literal 2 binary64) (*.f64 a a)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 #s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) (*.f64 #s(literal 2 binary64) (*.f64 b b)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (sqrt.f64 #s(literal 2 binary64))) x-scale)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(approx (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (*.f64 #s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 #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 b) (*.f64 x-scale x-scale))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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(approx (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale) (*.f64 #s(literal 1/180 binary64) (/.f64 (*.f64 a (*.f64 angle (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))) x-scale)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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(approx (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))))) x-scale)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 #s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))))) x-scale)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 #s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(approx (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 b b) (*.f64 a (*.f64 angle (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (*.f64 #s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64))) (*.f64 #s(literal 1/180 binary64) (PI.f64))))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a #s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (*.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 #s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64))) (*.f64 #s(literal 1/180 binary64) (PI.f64))))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) #s(approx (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (*.f64 b b))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1/4 binary64) (*.f64 b (*.f64 x-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) #s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (*.f64 b (*.f64 x-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) #s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 a (*.f64 y-scale (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(approx (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1/4 binary64) (*.f64 a (*.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) #s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (*.f64 a (*.f64 x-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) #s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 b (*.f64 y-scale (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 #s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) (fma.f64 #s(literal 2 binary64) (*.f64 b b) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 #s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (*.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64)))))))) x-scale)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(approx (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))))) (*.f64 #s(literal -1/4 binary64) (*.f64 b (*.f64 y-scale (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 4 binary64)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) #s(approx (* (* y-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))))) (*.f64 b (*.f64 y-scale (*.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 4 binary64)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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(approx (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (*.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (*.f64 a (*.f64 (*.f64 angle angle) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64)))))))) x-scale)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (*.f64 b (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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(approx (+ (* b (* y-scale (* (cos (* 1/180 (* angle (PI)))) 4))) (* (* a a) (+ (* -1/2 (/ (* (* a a) (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 4) (sqrt 8)))) (* (* (* b b) b) (pow (* (cos (* 1/180 (* angle (PI)))) (sqrt 2)) 3)))) (/ (* y-scale (* (pow (sin (* 1/180 (* angle (PI)))) 2) (sqrt 8))) (* b (* (cos (* 1/180 (* angle (PI)))) (sqrt 2))))))) (fma.f64 #s(literal 4 binary64) (*.f64 b y-scale) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (*.f64 b (*.f64 y-scale (*.f64 (PI.f64) (PI.f64)))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (*.f64 (PI.f64) (PI.f64)) (sqrt.f64 #s(literal 8 binary64))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 b (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 a (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 #s(literal -1 binary64) (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/16200 binary64) (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64)))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)))))
(/.f64 (neg.f64 #s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (*.f64 (*.f64 (*.f64 b b) b) #s(literal 4 binary64))) (*.f64 (*.f64 x-scale x-scale) y-scale)))) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (/.f64 (*.f64 a (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 -1 binary64) (/.f64 (*.f64 b (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 #s(approx (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (*.f64 #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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 #s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2)))) 2))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal 2 binary64))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b #s(approx (cos (* 1/180 (* angle (PI)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/64800 binary64) (*.f64 (*.f64 angle angle) (*.f64 (PI.f64) (PI.f64))))))) #s(literal 2 binary64))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (PI.f64) (PI.f64))) (*.f64 x-scale x-scale)))))))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))) (*.f64 b (*.f64 y-scale #s(literal 4 binary64)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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(approx (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (/.f64 (*.f64 a (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64)))) x-scale) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (/.f64 (*.f64 a (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (sqrt.f64 #s(literal 2 binary64)))) x-scale) (*.f64 #s(literal 1/22674816000000 binary64) (/.f64 (*.f64 a (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (sqrt.f64 #s(literal 2 binary64))))) x-scale)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.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) (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (*.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)))))))))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.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 (neg.f64 (sqrt.f64 #s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 16 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 b #s(literal 6 binary64))) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (*.f64 y-scale y-scale))))))) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (exp.f64 (*.f64 (log.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.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))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) #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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))))) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
Outputs
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) #s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (*.f64 a (*.f64 x-scale #s(literal 4 binary64))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 #s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) #s(approx (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (*.f64 b b))))))))
Calls

1 calls:

17.0ms
y-scale
Results
AccuracySegmentsBranch
52.9%2y-scale
Compiler

Compiled 1 to 5 computations (-400% saved)

regimes33.0ms (0.1%)

Memory
-29.5MiB live, 26.6MiB allocated; 18ms collecting garbage
Counts
20 → 2
Calls
Call 1
Inputs
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(approx (* 1/4 (* b (* y-scale 4))) (*.f64 b y-scale)))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale #s(literal 4 binary64))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) #s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (*.f64 a (*.f64 x-scale #s(literal 4 binary64))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 b (*.f64 y-scale #s(literal 4 binary64)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 b (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 #s(approx (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (*.f64 #s(literal 2 binary64) (*.f64 a a)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 #s(approx (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2))) (*.f64 #s(literal 2 binary64) (*.f64 b b)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (sqrt.f64 #s(literal 2 binary64))) x-scale)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(approx (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (*.f64 #s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 #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 b) (*.f64 x-scale x-scale))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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(approx (/ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) x-scale) (*.f64 #s(literal 1/180 binary64) (/.f64 (*.f64 a (*.f64 angle (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))) x-scale)))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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(approx (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))))) x-scale)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 #s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))))) x-scale)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 #s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) #s(approx (+ (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* a (* (sin (* 1/180 (* angle (PI)))) (sqrt 2))))) (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 b b) (*.f64 a (*.f64 angle (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a (*.f64 #s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64))) (*.f64 #s(literal 1/180 binary64) (PI.f64))))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) #s(approx (sqrt (+ (* 2 (pow (* a (sin (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (cos (* 1/180 (* angle (PI))))) 2)))) (*.f64 a #s(approx (* (sin (* 1/180 (* angle (PI)))) (sqrt 2)) (*.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) (sqrt.f64 #s(literal 2 binary64))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (+ (* 2 (/ (pow (* 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 (*.f64 #s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64))) (*.f64 #s(literal 1/180 binary64) (PI.f64))))) (sqrt.f64 #s(literal 2 binary64)))) x-scale)))))
Outputs
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal 1/4 binary64) #s(approx (* (* x-scale (sqrt 8)) (sqrt (+ (* 2 (pow (* a (cos (* 1/180 (* angle (PI))))) 2)) (* 2 (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (*.f64 a (*.f64 x-scale #s(literal 4 binary64))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(approx (* 1/4 (* b (* y-scale 4))) (*.f64 b y-scale)))
Calls

2 calls:

23.0ms
b
6.0ms
y-scale
Results
AccuracySegmentsBranch
49.5%3b
51.7%2y-scale
Compiler

Compiled 2 to 10 computations (-400% saved)

regimes11.0ms (0.1%)

Memory
21.5MiB live, 21.5MiB allocated; 0ms collecting garbage
Accuracy

Total -21.5b remaining (-52.8%)

Threshold costs -21.5b (-52.8%)

Counts
2 → 1
Calls
Call 1
Inputs
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(approx (* 1/4 (* b (* y-scale 4))) (*.f64 b y-scale)))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (*.f64 #s(literal -1/4 binary64) #s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (+ (* 2 (/ (pow (* 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 b (*.f64 y-scale #s(literal 4 binary64))))))
Outputs
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (+ (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(approx (* 1/4 (* b (* y-scale 4))) (*.f64 b y-scale)))
Calls

8 calls:

1.0ms
b
1.0ms
(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
1.0ms
(*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))
1.0ms
y-scale
1.0ms
(/.f64 angle #s(literal 180 binary64))
Results
AccuracySegmentsBranch
36.6%1(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.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)) (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(literal 4 binary64) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
36.6%1b
36.6%1(/.f64 angle #s(literal 180 binary64))
36.6%1(*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))
36.6%1angle
36.6%1a
36.6%1x-scale
36.6%1y-scale
Compiler

Compiled 196 to 97 computations (50.5% saved)

bsearch63.0ms (0.3%)

Memory
4.3MiB live, 52.8MiB allocated; 2ms collecting garbage
Algorithm
1×binary-search
Stop Event
1×narrow-enough
Steps
TimeLeftRight
54.0ms
23774407.4642218
384173541.6438698
Samples
48.0ms112×0valid
Compiler

Compiled 3 259 to 1 173 computations (64% saved)

Precisions
Click to see histograms. Total time spent on operations: 44.0ms
ival-pow2: 23.0ms (52.8% of total)
ival-mult!: 7.0ms (16.1% of total)
ival-div!: 4.0ms (9.2% of total)
ival-cosu: 3.0ms (6.9% of total)
ival-sinu: 3.0ms (6.9% of total)
ival-sqrt: 1.0ms (2.3% of total)
ival-add!: 1.0ms (2.3% of total)
ival-neg: 1.0ms (2.3% of total)
adjust: 0.0ms (0% of total)
ival-sub!: 0.0ms (0% of total)

bsearch4.0ms (0%)

Memory
5.0MiB live, 5.0MiB allocated; 0ms collecting garbage
Algorithm
1×binary-search
Stop Event
1×narrow-enough
Steps
TimeLeftRight
3.0ms
23774407.4642218
384173541.6438698
Compiler

Compiled 3 343 to 1 250 computations (62.6% saved)

bsearch4.0ms (0%)

Memory
4.6MiB live, 4.6MiB allocated; 0ms collecting garbage
Algorithm
1×binary-search
Stop Event
1×narrow-enough
Steps
TimeLeftRight
2.0ms
23774407.4642218
384173541.6438698
Compiler

Compiled 3 343 to 1 222 computations (63.4% saved)

bsearch23.0ms (0.1%)

Memory
-22.2MiB live, 24.1MiB allocated; 3ms collecting garbage
Algorithm
1×binary-search
Stop Event
1×narrow-enough
Steps
TimeLeftRight
19.0ms
23774407.4642218
384173541.6438698
Samples
16.0ms48×0valid
Compiler

Compiled 3 112 to 1 075 computations (65.5% saved)

Precisions
Click to see histograms. Total time spent on operations: 14.0ms
ival-mult!: 4.0ms (29% of total)
ival-pow2: 4.0ms (29% of total)
ival-div!: 2.0ms (14.5% of total)
ival-cosu: 1.0ms (7.3% of total)
ival-sqrt: 1.0ms (7.3% of total)
ival-sinu: 1.0ms (7.3% of total)
adjust: 0.0ms (0% of total)
ival-sub!: 0.0ms (0% of total)
ival-add!: 0.0ms (0% of total)
ival-neg: 0.0ms (0% of total)

derivations185.0ms (0.8%)

Memory
27.6MiB live, 123.4MiB allocated; 5ms collecting garbage
Stop Event
1×fuel
Compiler

Compiled 1 970 to 146 computations (92.6% saved)

preprocess134.0ms (0.6%)

Memory
-36.6MiB live, 196.5MiB allocated; 14ms collecting garbage
Remove

(abs x-scale)

(abs a)

Compiler

Compiled 28 964 to 6 332 computations (78.1% saved)

end0.0ms (0%)

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

Profiling

Loading profile data...